在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text然后编写如下程序: Private Sub Command1_Click() a=InputBox(“请输入日期(1~31)”) t=”旅游景点:” _ & IIf (a >0 And a<= 10,”长城”,””) _ & iif (a >10 And a<= 20,”故宫”,””) _ &
A.旅游景点:长城故宫
B.旅游景点:长城颐和园
C.旅游景点:颐和园
D.旅游景点:故宫
D、旅游景点:故宫
A.旅游景点:长城故宫
B.旅游景点:长城颐和园
C.旅游景点:颐和园
D.旅游景点:故宫
D、旅游景点:故宫
A.15和1
B.27和3
C.195和3
D.600和4
A.15和1
B.27和3
C.195和3
D.600和4
A.BCDEF
B.abcdef
C.defdef
D.efabc
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim array1(10,10)As Integer Dim i,i AS Integer For i=1 TO 3 For j=2 TO 4 arrayl(i,i)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是():
A.12
B.13
C.14
D.15
A.12
B.13
C.14
D.15
A.444
B.321123
C.123321
D.132231
A.0
B.12
C.Str(z)
D.没有显示
A、Private Sub Text1_Change()Command1.Caption=”计算机等级考试”End Sub
B、Private Sub Command1_Click()Caption=”计算机等级考试”End Sub
C、Private Sub Form1_Click()Text1.Caption=”计算机等级考试”End Sub
D、Private Sub Command1_Click()Text1.Text=”计算机等级考试”End Sub
在窗体上画两个标签和一个命令按钮,其名称分别为Labell、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是 ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10