A.TCP
B.UDP
C. IP
D.超文本传输协议
第1题
(10)运行下列程序,输入如下两行:
Hi,
I am here.
弹出的窗体中的显示结果是 【10】 。
Private Sub Command11_Click()
Dim abc As String, sum As string
sum=""
Do
abc=InputBox("输入abc")
If Right(abc,1)="." Then Exit Do
sum=sum+abc
Loop
MsgBox sum
End Sub
第2题
【题目描述】
运行下列程序,输入如下两行:
Hi,
I amhere.
弹出的窗体中的显示结果是()。Private Sub Commandll_Click
Dim abeAs String,sum As String
sum Ⅰ””
Do
abc=InputBox(”输入abc”)
If Right(abc,1)=”.”Then Exit Do
sum=sum+abc
Loop
MsgBoxsum
End Sub
A.Hi
B.I
C.am
D.here
【我提交的答案】: D |
【参考答案与解析】: 正确答案:A |
该程序的功能是检查字符串最右边的字符,如果为“.”则退出,否则将输入到InputBox中的字符串连接起来输出。
第4题
运行下列程序,输入数据8、9、3、0后,窗体中显示结果是()。
Prirate Sub.Form_click()
Dim sum As Integer,m As Integer
sum=0
Do
m=inputBox(“输入m”)
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub
A.0
B.17
C.20
D.21
第5题
运行下列程序,输入数据8、9、3、0后,窗体中显示结果是()。
Prirate Sub.Form_click()
Dim sum As Integer,m As Integer
sum=0
Do
m=inputBox(“输入m”)
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub
A.0
B.17
C.20
D.21
第6题
第7题
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是()。 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End Sub
A.10
B.14
C.15
D.120
第8题
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是()。 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End Sub
A.10
B.14
C.15
D.120
第9题
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是()。 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 S=S+a(k) Next k Print S End Sub
A.10
B.14
C.15
D.120
第10题
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是()。
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
S=s+a(k)
Next k
Print s
End Sub
A.10
B.14
C.15
D.120
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!