皮皮学,免费搜题
登录
logo - 刷刷题
搜题
【简答题】
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在答题纸的对应栏内。 【说明】 某个文本文件中存放了若干个非零数值有效数据,每个数据占一行,最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这 些数据之和,其运行窗口如下。 用户只要通过驱动器列表框、目录列表框和文件列表框,选择文本文件所在的驱动器、文件夹及相应的文件名,再单击“累计”按钮,就 能在“总计”文本框中看到该文本文件中的数据之和。 在开发过程中,设驱动器列表框名为Drivel,目录列表框名为Dirl,文件列表框名为Filel,存放数据的文本文件名为D:/test/vb7/datA .txt,“累计”按钮名为sum,“总计”文本框(TextBox)名为textl。 【Visual Basic代码】 Private Sub Drivel_Change() Dirl.Path=(1) '户选择的驱动器反映到目录列表框中 End Sub Private Sub Dirl_Change() Filel.Path=(2) '用户选择的文件夹改变文件列表框内容 End Sub Private Sub sum_Click() Dim (3) As New FileSystemOject, (4) As TextStxeam '创建自己的文件系统对象,说明自己的文本流对象 If Right (Dirl.Path,1)='/'Then SetmyTextFile=fso.OpenTextFile (Dirl.Path+Filel.FileNamc) Else SetmyTextFile=fso.OpenTextFile(Dirl.Path+”/’+Filel.FileName) End“ S=0 Do d=Val (myTextFilE.ReadRow) S=S+d Loop While (5) Textl.Text=Str$(S) End Sub
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
微信内点击右上角“…”即可分享
反馈
参考答案:
举一反三
【简答题】小汽车的羊毛簇绒地毯
【单选题】I don't think it advisable that Tom __________to the jOb since hei has no experience.
A.
be assigned
B.
is assigned
C.
will be assigned
D.
has been assigned
【单选题】A2 题型 27岁,阴道分娩后12天,出现泌尿道感染临床表现,其发生诱因错误的是
A.
阴道创伤使产妇不敢排尿造成尿潴留
B.
女性尿道短、直,机体抵抗力低,易造成上行感染
C.
分娩中膀胱受压引起黏膜充血、水肿
D.
留置尿管和过多阴道检查
E.
产后尿道和膀胱张力提高,对充盈不敏感
【单选题】--Writing is a skill, it looks easy but it be difficult. --No wonder I'm not so good at writing. I need to practice a lot.
A.
must
B.
can
C.
should
【单选题】门诊一类精神药品控缓释剂处方限量是
A.
1天
B.
2天
C.
3天
D.
7天
【单选题】初次启动Linux系统时需要添加一个用户账号,此用户属于哪个类型的用户?
A.
超级用户
B.
系统用户
C.
普通用户
D.
管理员用户
【简答题】羊毛簇绒地毯及其他簇绒铺地制品
【单选题】丘奇提出的一种定义函数的形式演算系统是__________。
A.
图灵机
B.
λ演算
C.
丘奇-图灵论题
D.
原始递归函数
【单选题】27岁,阴道分娩后12天,出现泌尿道感染临床表现,其发生诱因错误的是
A.
阴道创伤使产妇不敢排尿造成尿潴留
B.
女性尿道短、直,机体抵抗力低,易造成上行感染
C.
分娩中膀胱受压引起黏膜充血、水肿
D.
留置尿管和过多阴道检查
E.
产后尿道和膀胱张力提高,对充盈不敏感
【单选题】初次启动linux时需要添加一个用户账号,此用户属于哪个类型的用户?
A.
超级用户
B.
系统用户
C.
普通用户
D.
管理员用户
相关题目:
参考解析:
知识点:
题目纠错 0
发布
创建自己的小题库 - 刷刷题