1. 窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。 程序如下: Private Sub Command1_Click(Index As Integer) If Index=1 Then Print"计算机等级考试" End If If Index=2 Then Print Command1(2).Caption End If End Sub 运行程序,单击“命令按钮2”,则如下叙述中正确的是______。
4. 编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写),运行程序,如果按"A"键,则程序的输出是________。
A.A A
B.a A
C.A a
D.a a
A B C D
C
5. 以下叙述中错误的是
A.随机文件由若干个记录组成,通过记录号引用每个记录
B.随机文件中每个记录的长度可以不一样
C.可以按任意顺序访问随机文件中的记录
D.打开随机文件后,既可进行读操作,也可进行写操作
A B C D
B
6. 设窗体上有一个Command1命令按钮,还有以下程序代码: Private Sub Command1_Click() Static x As Integer x=x+1 Call proc(x) Print x, End Sub Private Sub proc(a As Integer) Static x As Integer x=x+a:a=x End Sub 程序运行后,3次单击命令按钮,则产生的输出是
10. 下面程序运行后,输出的结果是______。 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For k=2 To 3 Print arr(k,j); Next k Print Next j A. B. C. D.
18. 有如下函数过程: Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮,名为Commandl,编写事件过程调用该函数,输出结果为 。 Private Sub Commandl_lick() Dimi As Integer Dim sum As Long Fori=1 To 5 sum=sum+lj(i) Nexti Print sum End Sub
20. 窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2和Label3的标签。编写如下程序: Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=5 z=z+n y=y+n x=x+y Label1=x Label2=y Label3=z End Sub 运行程序,连续3次单击命令按钮后,3个标签中分别显示的是______。
26. 在窗体上画一个文本框、一个命令按钮和一个标签,其名称分别为Text1、Command1和Label1,文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后,如果在文本框中输入28.653,然后单击命令按钮,则标签中显示的内容是
29. 运行如下程序: Private Sub Command1_Click() Dim a(5, 5)As Integer For i=1 To 5 For j=1 To 4 a(i,j)=i*2+j If a(i, j)/7=a(i, j)\7 Then n=n+1 End If Next j Next Print n End Sub n的值是______。
31. 在窗体上添加一个命令按钮,名为 command1,一文本框,名为text1,则执行如下事件过程后,文本框中的输出为______。 For i = 1 To 3 For j = 1 To 3 For k = 1 To 2 x=x+ 3 Next k Next j Next i Text1. Text =str (x)
A.21
B.42
C.54
D.72
A B C D
C
32. 为了用键盘打开菜单和执行菜单命令,第一步应按的键是
A.功能键F10或Alt
B.Shift+功能键F4
C.Ctrl或功能键F8
D.Ctrl+Alt
A B C D
A
33. 设有如下通用过程: Public Function f(x As Integer) Dim Y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(X) Print x;y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是______。
36. 窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag=True Timer1.Enabled=True Timer1.Interval=1000 End Sub Private Sub Timer1_Timer() If flag Then Shape1.Height=Shape1.Height*2 Shape1.Width=Shape1.Width*2 Else Shape1.Height=Shape1.Height*0.5 Shape1.Width=Shape1.Width*0.5 End If flag=Not flag End Sub
39. 窗体上有1个名称为Text1的文本框;1个名称为Timer的计时器控件,其Interval属性值为5000,Enabled属性值是True。 Timer1的事件过程如下: Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=-flag If flag=1 Then Text1.ForeColor=&HPP& '&HFF&为红色 Else Text1.ForeColor=&HC000& '&HC000&为绿色 End If End Sub 以下叙述中正确的是