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

搜题

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

提问人：网友tinyripple 发布时间：2022-01-07

[主观题]

在窗体上绘制一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Clic

在窗体上绘制一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()c="ABCD"For n=1 To 4 Print__Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD 则在横线处应填入的内容为A．Left(c.n) B．Right(c,n) C．Mid(c,n,1) D．Mid(c,n,n)

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

查看官方参考答案

更多“在窗体上绘制一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Clic”相关的问题

第1题

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

For n=1 To 20

If n Mod 3$amp;Next

Print n

End Sub

程序运行后,如果单击命令按钮,则窗体上显示的内容是

A．15

B．18

C．21

D．24

点击查看答案

第2题

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

Private Sub Command1_Click（）

a=0

For i=1 To 2

For j=1 To 4

If j Mod 2$amp;a=a-1

End If

a=a+1

Next j

Next i

Print a

End Sub

程序运行后，单击命令按钮，输出结果是（）。

A．0

B．2

C．3

D．4

点击查看答案

第3题

下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub

A．10

B．12

C．37

D．22

点击查看答案

第4题

下列描述错误的是（）。

A．ReDim命令可以独立使用来声明数组变量

B．ReDim命令声明数组变量时，不可以使用变量来定义数组元素的个数

C．ReDim命令声明的数组变量是动态数组变量

D．ReDim命令声明的数组变量可以用Erase命令来删除

点击查看答案

第5题

在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。

A．Drive1_Change

B．Drive1_Click

C．Dir1_Click

D．Dir1_Change

点击查看答案

第6题

使用语句DimA(1To10)AsInteger声明数组A之后，以下说法正确的是（）。

A．A数组中的所有元素值为0

B．A数组中的所有元素值不确定

C．A数组中的所有元素值为Empty

D．执行EraseA后，A数组中的所有元素值为Null

点击查看答案

第7题

窗体上有一个命令按钮和一个列表框(Sorted属性为True)，执行下列过程后的输出结果是()。 Private Sub Command1_Click() List1.AddItem"China" List1.AddItem"Great" List1.AddItem"Is",1 List1.AddItem"!",3 Print List1.List(2) End Sub

A．China

B．Great

C．Is

D．!

点击查看答案

第8题

单击一次命令按钮之后，下列程序段的执行结果为()。 Pubic Sub Proc(a()As Integer) Static i As Integer Do a(i)=a(i)+a(i+1) i=i+1 Loop While i<2 End Sub Private Sub Command1_Click() Dim m As Integer,i As Integer,x(10)As Integer For i=0 To 4:x(i)=i+1:Next i For i=1 To 2:CallProc(x()):Next i For i=0 To 4:Print x(i);Next i End Sub

A．3 4 7 5 6

B．3 5 7 4 5

C．1 2 3 4 5

D．1 2 3 5 7

点击查看答案

第9题

下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case4 Print"good" Case 3 Print"pass" Case Else Print"fail" End Select

A．excellent

B．good

C．pass

D．fall

点击查看答案

第10题

有如下程序： Private Sub Command1_Click() a$="A WCIRKER IS HERE" x=Len(a$) For i=1 To x-1 b$=Mid$(a$,i,3) If b$="WOR"Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为

A．1

B．2

C．3

D．5

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年上海自考专业一览表如何选择浙江自考专科有哪些学校怎么选择 2024年河南下半年自考本科报名时间考哪几门初中文凭怎么自考大学需要什么条件怎么自学考大专毕业证考哪些科目 2024年成人初中没毕业如何提升学历需要多少钱广东自考大专报名时间2024 考哪些内容中医自考本科院校哪些考什么内容 2024年自考本科没有学位证怎么补救如何申请 2024年自考本科可以考哪些专业什么含金量高

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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