11.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Move 500,500 End Sub 程序运行后,单击命令按钮,执行的操作为 A、命令按钮移动到距窗体左边界、上边界各500的位置 B、窗体移动到距屏幕左边界、上边界各500的位置 C、命令按钮向左、上方向各移动500 D、窗体向左、上方向各移动500
A B C D
12.以下定义数组或给数组元素赋值的语句中,正确的是 A、Dim a As Variant a = Array(1,2,3,4,5) B、Dim a(10) As Integer a = Array(1,2,3,4,5) C、Dim a%(10) a(1) = "ABCDE" D、Dim a(3),b(3) As Integer a(0) = 0 a(1) = 1 a(2) = 2 b = a
A B C D
13.以下Case语句中错误的是 A、Case 0 To 10 B、Case Is>10 C、Case Is>10 And Is<50 D、Case 3,5,Is>10
15.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是 A、123.45 B、12345.00 C、12345 D、00123.45
19.在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程: Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub
Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text),3) End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是 A、空 B、abcdef C、abc D、def
A B C D
20.一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句 Public X As Integer 在Model1中有语句 Public Y As Integer 则以下叙述中正确的是 A、变量X、Y的作用域相同 B、Y的作用域是Model1 C、在From1中可以直接使用X D、在Form2中可以直接使用X和Y
21.在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果是 A、4321 B、1234 C、34 D、12
A B C D
22.在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 A、Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii<65 Or KeyAscii>90 Then MsgBox"请输入大写字母" KeyAscii=0 End If End Sub B、Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) If KeyCode<65 Or KeyCode>90 Then MsgBox"请输入大写字母" KeyCode=0 End If End Sub C、Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Asc(Text1.Text)<65 Or Asc(Text1.Text)>90 Then MsgBox"请输入大写字母" End If End Sub D、Private Sub Text1_Change() If Asc(Text1.Text)>64 And Asc(Text1.Text)<91 Then MsgBox"请输入大写字母" End If End Sub
A B C D
23.假定在窗体(名称为Form1)的代码窗口中定义如下记录类型: Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len=len(rec) rec.animalName="Cat" rec.aColor="White" Put #1,,rec Close #1 End Sub 则以下叙述中正确的是 A、记录类型animal不能在Form1中定义,必须在标准模块中定义 B、如果文件c:\vbTest.dat不存在,则Open命令执行失败 C、由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾 D、语句“Put #1,,rec”将animal类型的两个数据元素写到文件中
A B C D
24.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程: Private Sub Command1_Click() n=Val(Text1.Text) If n\2=n/2 Then f=f1(n) Else f=f2(n) End If Print f;n End Sub
Public Function f1(ByRef x) x=x*x f1=x+x End Function
Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是 A、72 36 B、108 36 C、72 6 D、108 6
A B C D
25.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print ____ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: 1 12 123 1234 则在下划线处应填入的内容为 A、Right(c1,i) B、Left(c1,i) C、Mid(c1,i,1) D、Mid(c1,i,i)
26.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j>Sqr(i) Then Print i Next i End Sub 该事件过程的功能是 A、输出n以内的奇数 B、输出n以内的偶数 C、输出n以内的素数 D、输出n以内能被j整除的数
28.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function f(m As Integer) If m Mod 2=0 Then f=m Else f=1 End If End Function
Private Sub Command1_Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub 程序运行后,单击按钮,在窗体上显示的是 A、11 B、10 C、9 D、8
A B C D
29.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i As Integer,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、15 B、14 C、13 D、12
A B C D
30.在窗体上画四个文本框(如图所示),并用这四个文本框建立一个控件数组,名称为Text1 (下标从0开始,自左至右顺序增大,然后编写如下事件过程: Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text(1).Index i=i+1 Next End Sub 程序运行后,单击命令按钮,四个文本框中显示的内容分别为 A、0 1 2 3 B、1 2 3 4 C、0 1 3 2 D、出错信息
6.在菜单编辑器中建立一个菜单,其主要菜单项的名称为mnuEdit,Visible属性为False。程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序,请填空。 Private Sub Form_ _______(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then _____ mnuEdit End If End Sub
11. 在窗体上画两个组合框,其名称为 Combo1、Combo2,然后画两个标签,名称分别 为Label1、Label2,如图所示。程序运行后,如果在某个组合框中选择一个项目,则 把所选中的项目在其下面的标签显示出来。请填空。 Private Sub Combo1_Click() Call ShowItem(Combo1,Label1) End Sub
Private Sub Combo2_Click() Call ShowItem(Combo2,Label2) End Sub
Public Sub ShowItem(temCombo As Combox,tmplabel As Label) ____.Caption = ____.Text End Sub