（5）在窗体上画一个列表框、一个
Command1和Label1，通过属性窗口把列表
、"第三个项目"、"第四个项目"。程序运
钮，即可将所选择的项目删除，并在标签
选择"第三个项目"的情况)。下面是实现
 命令按钮和一个标签，其名称分别为List1、
框中的项目设置为："第一个项目"、"第二个项目"
行后，在列表框中选择一个项目，然后单击命令按
中显示列表框当前的项目数，运行情况如图所示(
上述功能的程序，请填空。
 
　　Private Sub Command1
 _Click()
 
 
　　If List1.ListIndex >
 = 〖9〗 Then
 
 
　　List1.RemoveItem 〖10〗
 
 
　　Label1.Caption = 〖11〗
 
 
　　Else
 
 
　　MsgBox "请选择要删除的项目"
 
 
　　End If
 

 
　　End Sub
 
 
　　——————————
 ———————————
 
 
　　第一个项目
 

 
　　第二个项目
 COMMAND1
 
 
　　第三个项目
 3
 
　　——————————
 ———————————
 
 
　　（6）设有程序：
 

 
　　Option Base 1
 

 
　　Private Sub Command1
 _Click()
 
 
　　Dim arr1, Max as Int
 eger
 
 
　　arr1 = Array(12, 435, 76, 24, 78
 , 54, 866, 43)
 
　　（资料来源：东方教育网 http://ww
 w.eastedu.com.cn)
 
　　〖12〗 = arr1(1)
 

 
　　For i = 1 To 8
 

 
　　If arr1(i) > Max The
 n 〖13〗
 
 
　　Next i
 
 
　　Print "最大值是: "; Max
 
 
　　End Sub
 
 
　　以上程序的功能是：用Array函数建
组中元素的最大值。请填空。
 立一个含有8个元素的数组，然后查找并输出该数

 
　　（7）以下程序的功能
在文本框Text1中显示出来
 是：把当前目录下的顺序文件sm
。请填空。
 text1.txt的内容读入内存，并

 
　　Private Sub Command1_Click()
 
 
　　Dim inData As String
 
 
　　Text1.Text = ""
 
 
　　Open ".\smtext1.txt"
 〖14〗 As #1
 
 
　　Do While 〖15〗
 

 
　　Input #1, inData
 
 
　　Text1.Text = Text1.Text & inData
 
 
　　Loop
 

 
　　Close #1
 
 
　　End Sub
 
 
　　2003年9月全国计算机
 等级考试二级VB语言笔试试卷参
 考答案
 
　　一、 选择题
 
 
　　（1） C （2） A （3） B （4） B
 （5） C
 
　　（6） A （7） B （8） D （9） C
 （10）B
 
　　（11）A （12）D （13
 ）A （14）A （15）B
 
 
　　（16）A （17）D （18
 ）C （19）A （20）A
 
 
　　（21）B （22）C （23）C （24）A
 （25）C
 
　　（26）D （27）C （28）D （29）C
 （30）D
 
　　二、 填空题
 

 
　　（1） 〖1〗 5.6 〖2
 〗 5
 
 
　　（2） 〖3〗 A 〖4〗
 a
 
 
　　（3） 〖5〗 1000 〖6
 〗 True 〖7〗 Time
 
 
　　（4） 〖8〗 BASIC
 
 
　　（5） 〖9〗 0 〖10〗
 List1.ListIndex 〖11〗 List
 1.ListCount
 
　　（6） 〖12〗 Max 〖13〗 Max = ar
 r1(i)
 
　　（7） 〖14〗 For Input 〖15〗 N
 ot EOF(1)
 

上一页  [1] [2] [3] [4] [5] [6] [7]