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

搜题

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

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

[主观题]

有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是【

】和【】，最后一行的结果是【】。 Type type_a chr1 As String*1 num1 As Integer End Type Private Sub Command1_Click() Dim testdata As type_a, n As Integer Dim f1 As Integer, c()As String*1 f1=FreeFile Open "d:\data. txt" For Random As f1 Len=Len(testdata) n=1 For I=97 To 102 ReDim Preserve c(n) c(n)=Chr(I) testdata. chr1=c(n) testdata. num1=I n=n+1 Put f1, , testdata Next I Seek f1, 1 For I=1 To UBound(c) Get f1, , testdata List1. AddItem testdata. chr1 & testdata num1 Next I List1. AddItem UBound(c) Close End Sub

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

查看官方参考答案

更多“有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是【”相关的问题

第1题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Comma

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。

A．4

B．5

C．6

D．7

点击查看答案

第2题

有下列程序：Option Base 0Private Sub Command1_Click（) Dim City As Variant x = Array（"Visual

有下列程序： Option Base 0 Private Sub Command1_Click() Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是

A．Microson

B．错误提示

C．Visual

D．Basic

点击查看答案

第3题

（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 Private Sub Command1_Click（) Dim a%（1

（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 Private Sub Command1_Click() Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(a) S2=Factorial(b) Print"s1="；s1；"s2"；s2； End Sub Function Factorial(a()As Integer) Dim t#,i% t=1 For i=LBound(a) To UBound(a) t=t*a(i) Next i Factorial=t End Factorial A.s1=360 s2=24 B.s1=24 s2=360 C.s1=24 s2=24 D.s1=360 s2=360

点击查看答案

第4题

有下列程序，程序运行后单击命令按钮，则输出的结果是（)。Private Sub Command1_Click（)Dim a%（1 To

有下列程序，程序运行后单击命令按钮，则输出的结果是()。

Private Sub Command1_Click()

Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#

For i=1 To 4

a(i)=i

Next i

For i=3 To 6

b(i)=i

Next i

s1=Factorial(A)

s2=Factorial(B)Print"s1=";s1;"s2=";s2

End Sub

Function Factorial(a() As Integer)

Dim t#,i%

t=1

For i=LBound(A)To UBound(A)

t=t*a(i)

Next i

Factorial=t

End Function

A．s1=360 s2=24

B．s1=24 s2=360

C．s1=24 s2=24

D．s1=360 s2=360

点击查看答案

第5题

有下列程序，程序运行后单击命令按钮，则输出的结果为（)。Private Sub Command1_Click（)Dim a%（1 To

有下列程序，程序运行后单击命令按钮，则输出的结果为()。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(A) s2=Factorial(B)Print "s1="；s1；"s2="；s2End SubFunction Factorial(a()As Integer)Dim t#，i% t=1 For i=LBound(A)To UBound(A) t=t*a(i) Next i Factorial=tEnd Function

A．s1=360 s2=24

B．s1=24 s2=360

C．s1=24 s2=24

D．s1=360 s2=360

点击查看答案

第6题

窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序：Privat

窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序： Private Sub Command1_Click() Dim i，s For i=0 To List1．ListCount s=s+List1．List(i) Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的是

A．0

B．10

C．01234

D．程序出错

点击查看答案

第7题

有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的名称分别为Te

xt1、Text2和Text3，3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中；单击退出按钮则退出。请将下列程序填空补充完整。

Private Sub Command1_Click(

点击查看答案

第8题

下列操作中，能启动Word的有（）。

A.在“我的电脑”或“资源管理器”窗口中双击一个扩展名为．doc的文件

B.在开始菜单里单击“运行”命令项并在其对话框中指定一个扩展名为．doc的文件后单击“确定”

C.在开始菜单里单击“程序”下拉菜单中的“MicrosoftWord”命令

D.在开始菜单里单击“文档”命令项并在其下属的文档清单中单击一个doc文档名

点击查看答案

第9题

在窗体上画一个按钮，然后再复制5个，形成名称为Command1的6个控件数组，删除其中Index=4的一个。有

下列程序： Private Sub Command1_Click(Index As Integer) Print Command1.Count； Print Command1.LBound； Print Command1.UBound； End Sub 程序运行后，单击任一命令按钮，则窗体上显示的内容是

A．0 0 0

B．5 0 5

C．4 0 4

D．4 1 5

点击查看答案

第10题

有下列程序： 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中分别显示的内容是【】和【】。

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024湖南成人高考准考证什么时候打印？需要注意什么？ 2024年自考大专报名官网条件要求是什么湖南成人高考专业加试 2024年初中毕业如何自考本科在哪里报名 2024湖南成人高考新生复查注意事项 2024年10月自考本科报名时间报考流程大概是怎样湖南成人高考被录取后需要注意的事项 2024年自考改革后的学制变成了4年了吗考哪些内容新生报考湖南成考需要了解的事情 2024年自考准考证打印截止时间怎么打印

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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