e Check1.Value=True
C) Option2.Value=False D) Option1.Value=True
Check1.Value=True Check1.Value=1
(14) 为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是
A) Value B) Default C) Cancel D) Enabled
(15) 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:
Private Sub Command1_Click()
For I=1 To 4
For J=0 To 1
Print Chr$(65+I);
Next J
Print
Next I
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A) BB B) A C) B D) AA
CC BB CC BBB
DDDD CCC DDD CCCC
EEEEE DDDD EEEE DDDDD
(16) 图像框有一个属性,可以自动调整图形的大小,以适应图像框的尺寸,这个属性是
A) Autosize B) Stretch
C) AutoRedraw D) Appearance
(17) 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是
A) 15和1 B) 27和3 C) 195和3 D) 600和4
(18) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For I=0 To 50
i=i+3
n=n+1
If i>10 Then xit for
Next
Text1.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A) 2 B) 3 D) 4 D) 5
(19) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i,j As Integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next I
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A) 12 B) 13 C) 14 D) 15
(20) 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Print
Next j
End Sub
程序运行后,单击命令按钮,窗体上显示的是
A) 123 B) 234 C) 147 D) 123
246 345 258 456
369 456 369 789 (21)
上一页 [1] [2] [3] [4] [5] [6] 下一页
责任编辑:小草