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

搜题

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

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

[主观题]

在窗体上画一个名称为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

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

查看官方参考答案

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

第1题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：　　Private Sub Command1_Click() 　　 For n = 1 To 20 　　 If n Mod 3 <> 0 Then m = m + n \ 3 　　 Next n 　　 Print n 　　End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是:

A、A. 15

B、B. 18

C、C. 21

D、D. 24

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1 TO 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)＞xThen Print a(i) Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

A．1 2

B．1 2 3

C．3 4 5

D．4 5

点击查看答案

第3题

编写如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Shift=6 and Button then Print"Hello" End if End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下()操作

A．同时按下Shift键和鼠标左键

B．同时按下Shift键和鼠标右键

C．同时按下Ctrl、Alt和鼠标左键

D．同时按下Ctrl、Alt和鼠标右键

点击查看答案

第4题

如果Form1是启动窗体，并且Form1的Load事件过程中有Form2.Show，则程序启动后（）。

A．发生一个运行时错误

B．发生一个编译时错误

C．在所有的初始化代码运行后Form1是活动窗体

D．在所有的初始化代码运行后Form2是活动窗体

点击查看答案

第5题

下列可以打开立即窗口的操作是（）。

A．Ctrl+D

B．Ctrl+E

C．Ctrl+F

D．Ctrl+G

点击查看答案

第6题

假定在窗体上建立一个通用对话框，其名称为CommonDialog1，用下面的语句可以建立一个对话框：CommonDialog1.Action=4与该语句等价的语句是（）。

A．CommonDialog1.ShowOpen

B．CommonDialog1.ShowFont

C．CommonDialog1.ShowColor

D．CommonDialog1.ShowSave

点击查看答案

第7题

当窗体启动时可通过（）属性控制窗体位于所有者的中心位置。

A．MDIChild

B．LinkMode

C．WindowState

D．StartUpPosition

点击查看答案

第8题

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

A．Left(c,n)

B．Right(c,n)

C．Mid(c,n,1)

D．Mid(c,n,n)

点击查看答案

第9题

下面程序运行时，单击窗体后，窗体上显示的结果是()。 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

点击查看答案

第10题

下列描述错误的是（）。

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

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

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

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

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

河南2024年10月自考本科怎样报名缴费流程是什么山东自考报名时间2024下半年具体考试时间安排湖南成考学历可以报考消防工程师吗（2024年湖南成人高考高起点适合哪些人报考？） 2024北京10月自考报名时间及入口湖南函授新生报道注意事项（2024年湖南成人高考注意事项） 2024年10月自考本科报名时间什么时候开始河北2024年10月成人自考怎么报名注册流程是什么湖南成人高考哪些专业在考试时需要加试（报考湖南成人高考医学类专业必须满足什么条件 2024年10月云南自考怎么自己报名最全操作步骤成人高考现场确认用临时身份证可以吗？（湖南成人高考报名流程解析）

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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