二级vb试卷-2003
（30）以下有关数组定
义的语句序列中，错误的是
A） Static arr1(3)
arr1(1) = 100
arr1(2) = "Hello"
arr1(3) = 123.45
B）Dim arr2() As Integer
Dim size As Integer
Private Sub Command2_Click()
size = InputBox("输入：")
ReDim arr2(size)
．．．．．．
End Sub
C）Option Base 1
Private Sub Command3_Click()
Dim arr3(3) As Integer
．．．．．．
End Sub
D）Dim n As Integer
Private Sub Command4
_Click()
Dim arr4(n) As Integ
er
．．．．．．
End Sub
二、填空题（每空2分
，共30分）
（1）执行下面的程序段后，i的值为
〖1〗 ，s的值为 〖2〗 。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
（2）把窗体的KeyPrev
iew属性设置为True，然后编写
如下两个事件过程：
Private Sub Form_Key
Down(KeyCode As Integer, Shi
ft As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAsc
ii As Integer)
Print Chr(KeyAscii)
End Sub
程序运行后，如果直接
分别是 〖3〗 和 〖4〗 。
按键盘上的"A"键（即不按住Shi
ft键），则在窗体上输出的字符
（3）在窗体上画一个标签（名称为L
写如下几个事件过程：
abel1）和一个计时器（名称为Timer1），然后编
Private Sub Form_Loa
d()
Timer1.Enabled = False
Timer1.Interval = 〖5〗
End Sub
Private Sub Form_Click()
Timer1.Enabled = 〖6〗
End Sub
Private Sub Timer1_T
imer()
Label1.Caption = 〖7〗
End Sub
程序运行后，单击窗体，将在标签中
填空。
显示当前时间，每隔1秒钟变换一次（见图）。请
————————————————
——————
14：54：41
————————————————
——————
（4）在窗体上画一个
Label1和Command1，然后编
文本框、一个标签和一个命令按
写如下两个事件过程：
钮，其名称分别为Text1、
Private Sub Command1_Click()
S$ = InputBox("请输
入一个字符串")
Text1.Text = S$
End Sub
Private Sub Text1_Ch
ange()
Label1.Caption = UCa
se(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令
"VisualBasic"，则在标签
按钮，将显示一个输入对话框，
中显示的内容是 〖8〗 。
如果在该对话框中输入字符串
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
|
