请阅读程序:
Option Base 1
Pfivate Sub Form_Click()
Dim Arr(4,4)As Integer
For i=1 To 4
For j=1 To 4
Arr(i,j)=(i-1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j,i);
Next j
Print
Next i
End Sub
程序运行后,单击窗体,则输出结果是()。
A. 5 7 6 8
B. 6 8 7 9
C. 7 9 8 10
D. 8 10 8 11
查看答案
在窗体上画一个命令按钮(其名称为Command1),然后编写如下代码:
Private Sub Command 1_Click()
Dim a
a=Array(1,2,3,4)
i=3:i=1
Do While i>=0
s=s+a(i)*j
i=i-1
j=j*10
Loop
Print s
End Sub
运行上面的程序,单击命令按钮,则输出结果是()。
A. 4321
B. 123
C. 234
D. 1234
B类装修材料:装修材料中放射性核素的放射性比活度同时满足()。
A. IRa≤1.0,IY≤1.3
B. IRa≤1.3、IY≤1.9
C. IY≤2.8
D. IY≥2.8
在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗V1中把窗体的KeyPreview属性设置为True,然后编写如下程序:
Dim S1 As String,S2 As String
Private Sub Form_Load()
Text1.Text=””
Text2.Text=””
TeXt1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2&Chr(KeyCode)
End Sub
Privtee Sub Form_KeyPress(KeyAscii As Integer)
S1=S1&Chr(KeyAscii)
End Sub
Pfivtee Sub Command 1_Click()
Text1.Text=S1
Text2.Text=S2
S1=””
S2=””
End Sub
程序运行后,先后按“a”、“b”、“c”键,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为()。
A. abc和ABC
B. 空白
C. ABC和abc
D. 出错
有弹出式菜单的结构如下表,程序运行时,单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是()。
A. Private Sub Form_Click() PopupMenu cut End Sub
B. Private Sub Command1_Click() PopupMenu edit End Sub
C. Private Sub Form_Click() PopupMenu edit End Sub
D. Private Sub Form_Click() PopupMenu cut End Sub