设有如下语句: Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中,
设有如下语句:
Dim a,b As Integer
c="VisualBasic"
d=#7/20/2005#
以下关于这段代码的叙述中,错误的是()。
A.a被定义为Integer类型变量
B.b被定义为Integer类型变量
C.c中的数据是字符串
D.d中的数据是日期类型
设有如下语句:
Dim a,b As Integer
c="VisualBasic"
d=#7/20/2005#
以下关于这段代码的叙述中,错误的是()。
A.a被定义为Integer类型变量
B.b被定义为Integer类型变量
C.c中的数据是字符串
D.d中的数据是日期类型
第1题
在窗体上画一个命令按钮,然后编写如下事件过程:
private sub command1_click()
dima,basinteger
a=Val(inputbox("EntertheFirstinteger"))
b=Val(inputbox("EntertheSecondinteger"))
Printb+a
end sub
程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和111,则输出结果是()
A.456
B.111
C.567
D.111456
第2题
设有命令按钮Commandl的单击事件过程,代码如下: Private Sub Commandl_Click() Dima(30)As Integer Fori=1 To 30 a(i)=Int(Rnd*100) Next For Each arrltem In a IfarrltemMod7=0 ThenPrintarrItem; Ifarrltem>90ThenExitFor Next End Sub
A.a数组中的数据是30个100以内的整数
B.语句ForEacharrItem Ina有语法错误
C.Ifarrltem Mod7=0……语句的功能是输出数组中能够被7整除的数
D.Ifarrltem>90……语句的作用是当数组元素的值大于90时退出For循环
第3题
设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a(30)As Integer
For i=1 To 30
a(i)=Int(Rnd*100)
Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem;
If arrItem>90 Then Exit For
Next
End Sub
对于该事件过程,以下叙述中错误的是()。
A.a数组中的数据是30个100以内的整数
B.语句For Each arrItem In a有语法错误
C.If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数
D.If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环
第4题
A.a(1)=100
B.a(2)=Val(InputBox“请输入一个整数”)
C.a(0)=a(3)
D.a(3)=Array(0,1,2,3)
第5题
A.dima[3,4]asintiger
B.dima(3,4)asstring
C.dima(n,n)assingle
D.dima(34)asinteger
第6题
设有数组定义语句:Dima(5)AsInteger,Listl为列表框控件。下列给数组元素赋值的语句错误的是()。
A.a(3)=3
B.a(3)=inputbox("inputdata")
C.a(3)=Listl.Listlndex
D.a=Array(1,2,3,4,5,6)
第7题
A.Dima[3,4]AsInteger
B.Dima(3,4)AsInteger
C.Dima(n,n)AsInteger
D.ima(3,4)AsInteger
第9题
设有数组定义语句:Dim a(5) As Integer,List1为列表框控件。下列给数组元素赋值的语句错误的是()。
A.a(3) =3
B.a(3) =inputbox("input data")
C.a(3) =List1.ListIndex
D.a=Array(1,2,3,4,5,6)
第10题
A.DimA(1to9)AsInteger
B.DimA(1to3,1to3)AsInteger
C.DimA(-1to1,-3to-1)AsSingle
D.DimA(-3to-1,1to3)AsInteger
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!