运行上面的程序，单击命令按钮，其输出结果是（） A）4321 B）12 C）34 D）1234
22．在窗体上画一个命令按钮（其Name属性为Command 1），然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
Dim a(4,4) For i =1 To 4 For j =1 To 4 a(i,j) = (i-1)*3+j Next j Next i
For i =3 To 4 For j =3 To 4 Print a(j,i); Next j Print Next i End Sub
程序运行后，单击命令按钮，其输出结果为（） A）6 9 B）7 10 7 10 8 11 C）8 11 D）9 12 9 12 10 13 23．假定有如下的Sub过程： Sub S（x As Single,y As Single）
t = x x =t/y y =t Mod y End Sub
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click ( )
Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub
程序运行后，单击命令按钮，输出结果为（） A）5 4 B）1 1 C）1.25 4 D）1.25 1
24．阅读程序：
Function F(a As Integer)
b = 0 Static c b = b+1 c = c+1 F = a+b+c End Function
Private Sub Command1_Click ()
Dim a As Integer a =2
For i =1 To 3 Print F(a) Next i End Sub
运行上面的程序，单击命令按钮，输出结果为（） A）4 B）4 C）4 D）4 4 5 6 7 4 6 8 9 25．阅读程序：
Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i End Sub
Private Sub Command1_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a () For i =1 To 4
Print a(i) Next i End Sub
运行上面的程序，单击命令按钮，输出结果为（） A）2 B）5 C）10 D）出错 4 6 12 6 7 14 8 8 16
26．下列不能打开菜单编辑器的操作是（）
A）按Ctrl+E B）单击工具栏中的“菜单编辑器”按钮
C）执行“工具”菜单中的“菜单编辑器”命令 D）按Shift + Alt + M
27．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）
A）MenuItem. Enabled=False B）MenuItem. Enabled=True C）MenuItem. Visible=True D）MenuItem. Visible=False
28．在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（） A）Move B）Change C）Scroll D）GetFocus
29．假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（）
A）Label1. BackStyle=0 B）Label1.BackStyle=1 Label1.Borderstyle=0 Label1.Borderstyle=1 C）Label1.BackStyle=True D）Label1.BackStyle=False Label1.BorderStyle=True Label1.Borderstyle=False
30．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load ()
List1.AddItem\ List1.AddItem\ List1.AddItem\ Listl.AddItem\ Text1.Text=\ End Sub
Private Sub List1_ DblClick ( )
a =List1.Text
Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”（见图附录-1），然后双击列表框中的“456”，则输出结果为（） 图附录-1
A）1245 B）456789 C）789456 D）0
31．为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（）
A）Visible B）Timer C）Enabled D）Interval 32．为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（）
A）Get文件号，记录号，变量名 B）Get文件号，变量名，记录号 C）Put文件号，变量名，记录号 D）Put文件号，记录号，变量名
33．对窗体编写如下事件过程：
Private Sub Form _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
If Button =2 Then Print \ End If End Sub
Private Sub Form _ MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print \ End Sub
程序运行后，如果右击鼠标，则输出结果为（） A）AAAAA B）BBBBB BBBBB AAAAA C）AAAAA D）BBBBB
34．为了在运行时能显示窗体左上角的控制框（系统菜单），必须（） A）把窗体的Contro1Box属性设置为False，其他属性任意
B）把窗体的ControlBox属性设置为True，并且把Boder Style属性设置为1-5 C）把窗体的ControlBox属性设置为False，同时把BoderStyle属性调协为非0值
D）把窗体的ControlBox属性设置为True，同时把BoderStyle属性设置为0值
35．对窗体编写如下代码： Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a = Array(237,126,87,48,498) m1 = a(1) m2 = 1
If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(i) m2 =i End If Next i End If Print m1 Print m2 End Sub
程序运行后，按回车键，输出结果为（） A）48 B）237 4 1 C）498 D）498 5 4
相关推荐：
loading