网友您好，请在下方输入框内输入要搜索的题目：

搜题

题目内容（请给出正确答案）

提问人：网友huangwei3314 发布时间：2022-01-06

[主观题]

有下列程序： Private Sub Command1_Click（) Dim i As Integer

有下列程序： Private Sub Command1_Click() Dim i As Integer Dim arrY(5)As Integer For i = 0 To 4 arrY (i) = 5 Next i Dim arrZ(5)As String For i = 0 To 4 arrZ(i)= "hello" Next i Dim arrX(2)AS Variant arrX(1)=arrY() arrX(2)=arr2() Text1.Text=arrX(1) (2) TextText=arrX(2) (3) End Sub 程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是【】和【】。

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“有下列程序： Private Sub Command1_Click（) Dim i As Integer”相关的问题

第1题

点击查看答案

第2题

A、1 + 1/2 + 2/3 + 3/4 + 4/5

B、1 + 1/2 + 1/3 + 1/4 + 1/5

C、1/2 + 2/3 + 3/4 + 4/5

D、1/2 + 1/3 + 1/4 + 1/5

点击查看答案

第3题

1. 在窗体上画一个名为Command 1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim b, k For k = 1 TO 6 b = 23+k Next k MsgBox b+k End Sub 运行程序，单击命令按钮，消息框输出结果是( )。 A．36 B．29 C．41 D．34

A、A

B、B

C、C

D、D

点击查看答案

第4题

1. 设有以下程序： Private Sub Form_Click() 　　x＝50 　　For i＝1 To 4 　　　　y＝InputBox("请输入一个整数") 　　　　y＝Val(y) 　　　　If y Mod 5＝0 Then 　　　　　　a＝a＋y 　　　　　　x＝y 　　　　Else 　　　　　　a＝a＋x 　　　　End If 　　Next i 　　Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为(　　)。 A. 100 B. 50 C. 120 D. 70

A、A

B、B

C、C

D、D

点击查看答案

第5题

1. 执行下面的程序段后，变量c的值为(　　)。 a = 29 b = 33 Select Case b\10 Case 0 c = a * 10 + b Case 1 To 9 c = a * 100 + b Case 10 To 99 c = a * 1000 + b End Select Print c A. 29 B. 2933 C. 33 D. 3329

A、A

B、B

C、C

D、D

点击查看答案

第6题

1. 有一程序段，其功能是：当x>0时，y=x；当-2= <x> <=0时，y=-x,当x<-2时，产生一个"输入错误"信息框。则下列程序空白处应为(　　)。 private sub form_click() x %="InputBox(″请输入x的值：″)" if> 0 Then y = x _______ y = -x Else MsgBox ″输入错误″ End If Print y End Sub A. Else x >= -2 And x <= 0 then b. elseif x>= -2 And x <= 0 then c. elseif x>= -2 And x <= 0 d. else if x>= -2 And x <= 0 then> A、A

B、B

C、C

D、D

点击查看答案

第7题

1. 编写如下程序： Private Sub Command1_Click() Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后，单击命令按钮Command1，输出结果为(　　)。 A. AAA B. BBB C. CCC D. 1

A、A

B、B

C、C

D、D

点击查看答案

第8题

1. 阅读程序。 Private Sub Command1_ Click A = 75 IF A>60 THEN I = 1 IF A>70 THEN I = 2 IF A>80 THEN I = 3 IF A>90 THEN I = 4 MsgBox I End Sub 程序运行后，窗体上显示的是( )。 A．1 B．2 C．3 D．4

A、A

B、B

C、C

D、D

点击查看答案

第9题

1. 编写如下程序： Private Sub Command1_Click() Dim score As Integer score = 86 If score > 85 Then r = 1 ElseIf score > 60 Then r = 2 Else r = 0 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为(　　)。 A. 0 B. 1 C. 2 D. 86

A、A

B、B

C、C

D、D

点击查看答案

第10题

1. 运行下列程序后，显示的结果为(　　)。 R1 = 21 R2 = 34 If R1 < R2 Then Print R2 Else Print R1 A．21 B. 34 C. 55 D. 2134

A、A

B、B

C、C

D、D

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年4月陕西自考成绩查询时间自考成绩查询方式会计学自考本科要考哪些科目一共考几门 2024年4月上海自学考试成绩查询系统入口 2024黑龙江自考成绩查询查分时间及入口湖北2024年4月自考成绩查询时间及入口护理成人自考本科考哪些科目具体考哪几门 2024年10月全国各地自考本科考试时间汇总 2024自考10月考试科目有哪些具体时间在几号小学教育自考本科考哪几门考试科目有什么全国2024自考10月考试科目及考试时间一览表

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次