单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码:Option Base 1Dim arr() As IntegerPrivate Sub Command1_Click() Dim i As Integer, j As Integer Dim s As Integer ReDim arr(4, 2) s = 0 For i = 1 To 3 For j = 1 To 2 arr(i, j) = i + j Next j Next i ReDim Preserve arr(4, 4) For j = 3 To 4 arr(3, j) = j + 10 Next j For i = 1 To 4 s = s + arr(i, i) Next i Print sEnd Sub程序运行过程中,当单击Command1时,输出结果为( )。
单选题下列程序段执行后,输出的结果是______。
For k1=0 To 4
y=20
For k2=0 To 3
y=10
For k3=0 To 2
y=y+10
Next k3
Next k2
Next k1
Print y
单选题下列过程定义正确的是______。
单选题在窗体上画一个组合框,一个命令按钮和一个文本框,其名称分别为Combol,Commandl和Text1,然后编写如下事件过程:
Private Sub Form_Load() Combol.Addltem"AAAAA"
Combol.Addltem"BBBBB" Combol.Addltem"CCCCC"
Combol.Addltem"DDDDD" Combol.Addltem"EEEEE"
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示组合框的项目“CCCCC”。为了实现该操作,在命令按钮的Click事件过程中应使用的语句为______。
A.Text1.Text=Combo1.List(2)
B.Text1.Text=Combo1.Text
C.Text1.Text=Combo1.List(3)
D.Text1.Text=Combo1.Listlndex
单选题以下自定义数据类型的语句中,正确的是______。
A.Type student ID As String*20 name As String*10 age As Integer End student
B.Type student ID As String*20 name As String*10 age As Integer End Type
C.Type student ID As String name As String age As Integer End student
D.Type ID As String*20 name As String*10 age As
Integer End Type student
单选题窗体文件中的信息是( )和其他信息。
单选题下面控件中,没有Caption属性的是
单选题以下合法的VB变量名是
单选题己知A$="Welcome",下列语句操作能够正确执行的是( )。
单选题窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a() As Integer, m As Integer Private Sub Command1_Click() m = InputBox( "请输入一个正整数" ) ReDim a(m) End Sub Private Sub Command2_Click() m = InputBox( "请输入一个正整数" ) ReDim a(m) End Sub 运行程序时,单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是( )。 A) 5 B) 6 C) 10 D) 11
单选题下面程序运行后,单击命令按钮,输出的结果是 Private Sub Command1_Click( ) Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2# For i = 1 To 4 a(i) =i Next For i = 2 To 6 b(i) =i Next str 1 = YAG (
单选题在标准模块中,将a定义为全局整型变量的语句是
单选题要使一个文本框显示多行文件,应使它的( )设为True。
单选题在窗体上画一个名称为List1的列表框,然后编写如下程序: Private Sub Form_Click() For i=1 To 10 Item=”Item”&i:List1.Addltem Item Next i End Sub 程序运行时,单击窗体,所完成的功能是
单选题在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为
单选题如果想在程序中反复使用一个日期型数据"01/01/2000",为了避免在编写程序时反复输入这个数据,也为了一次能够修改程序中所有用到这个数据的语句,可以采用: ( )
单选题在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确 定”按钮后,在窗体上显示的内容为______。
单选题标准模块中有如下程序代码: Public x As Integer,Y As Integer Sub TempSub() x=10:y=20 End Sub 在窗体上有1个命令按钮,并有如下事件过程: Private Sub Command1_Click() Dim x As Integer Call TempSub x=x+100:y=y+100 Print x;y End Sub 运行程序后单击命令按钮,窗体上显示的是( )。
单选题文件d:/city.Lxt的内容如下:
BeiJing
TianJin
ShangHai
ChongQing
编写如下事件过程:
Private Sub Form_Click()
Dim InD
Open "d:/city.txt" For Input As #1
Do While Not EOF(1)
Line Input #1.InD
Loop
Close 1
Print InD
End Sub
运行程序,单击窗体,输出结果是______。
单选题在4个字符“D”,“z”,“A”,“9”中,其ASCII码值最大的是( )。