【单选题】【消耗次数:1】
窗体上画一个名为Command1的命令按钮,然后编写以下程序: Private Sub Command1_Click() Dim m(10) As Integer For k = 1 To 10 m(k) = 12 - k Next k x = 8 Print m(2 + m(x)) End Sub 运行程序,单击命令按钮,在窗体上显示的是 。
6
5
7
8
参考答案:
复制
纠错
相关题目
【单选题】 设有如下程序: Option Base 0 Private Sub Form_Click() ??? Dim a ??? Dim i As Integer ??? a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) ??? For i = 0 To 3 ??????? Print a(5 - i); ??? Next End Sub 程序运行后,单击窗体,则在窗体上显示的是?
①  6?5?4 3
②  5?4?3?2
③  4?3?2 1
④  7?6?5?4
【单选题】 在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程: ???? Private Sub Command1_Click() ???? ? x=Val(Text1.Text) ???? ? Select Case x ???????? Case 1,3 ????????????? y=x*x ???????? Case Is>=10,Is<=-10 ????????????? y=x ???????? Case -10 To 10 ????????????? y=-x ?End Select ?????? End Sub 程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是______。
①  先执行y=x*x,再执行y=-x
②  执行y=-x
③  执行y=x*x
④  程序出错
【单选题】 假定在窗体是有两个命令按钮Command1和Command2及一个文本框Text1。有如下事件过程代码: Private Sub command1_click() Text1.Text = 中国 End Sub Private Sub command2_click() Text1.Text = China End Sub 若首先单击command1,再单击Command2,则在文本框中显示 ( )。
①  China
②  中国
③  China中国
④  中国China
【单选题】 在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() ??? a = InputBox(Enter an integer) ??? b = InputBox(Enter an integer) ??? Text1.Text = b + a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
①  出错
②  18
③  810
④  108
【简答题】 已知函数 。下面是实现计算该函数的程序,请填空完成以下程序。 Private Sub Command1_Click() Dim k As Integer, i As Integer, s As Long n = 5 : k = 1 For i = 1 To n s = s +[填空] Next i Print s End Sub Function pow(a As Integer, b As Integer) As Long Dim i As Integer, t As Long t = 1 For i = 1 To a [填空] Next i pow = t End Function
【单选题】 在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程: Private Sub Command1_Click() ??? CommonDialog1.FileName = ??? CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt ??? CommonDialog1.FilterIndex=2 ??? CommonDialog1.DialogTitle=VBTest ??? CommonDialog1.Action=1 End Sub 对于这个程序,以下叙述中错误的是______。
①  在该对话框中指定的默认文件类型为文本文件(*.Txt)
②  在该对话框中指定的默认文件名为空
③  该对话框的标题为VBTest
④  该对话框被设置为打开对话框
【单选题】 设执行以下程序段时依次输入1、3、5,执行结果为______。 ??? Dim a(4) As Integer, b(4) As Integer ??? For K = 0 To 2 ??????? a(K + 1) = Val(InputBox(请输入数据)) ??????? b(3 - K) = a(K + 1) ??? Next K ??? Print b(K)
①  0
②  3
③  5
④  1
【单选题】 有以下程序,执行后输出结果是() main( ) { int m[][3]={1,4,7,2,5,8,3,6,9}; int i,j,k=2; for(i=0;i { printf(%d ,m[k][i]); } }
①  4 5 6
②  2 5 8
③  3 6 9
④  7 8 9
【单选题】 以下程序段运行后变量k的值为()。intm=7,n=2,k;k=(m^n)
①  0
②  98
③  20
④  10
【简答题】 下列程序段的运行结果是[填空] 。 Private Sub Form_Click() Dim a(3) As Long a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub
随机题目
【单选题】 根据规定,施工单位( )的工人,必须接受三级安全教育培训,经考核合格后,方能上岗。
①  转岗
②  变换工种
③  从事特种作业
④  新入场
【单选题】 下列( )不属于《建设工程安全生产管理条例》规定的必须按照国家有关规定经过专门的安全作业培训,并取得特种作业操作资格证书后,方可上岗作业的特种作业人员。
①  起重安装拆卸工
②  爆破作业人员
③  起重信号工
④  现场安全员
【单选题】 对入场新工人的三级安全教育一般是由企业的( )等部门配合进行的。
①  安全、法律、劳动、技术
②  安全、教育、劳动、技术
③  组织、法律、劳动、技术
④  安全、教育、组织、技术
【单选题】 ( )是建筑施工企业所有安全规章制度的核心。
①  安全检查制度
②  安全技术交底制度
③  安全教育制度
④  安全生产责任制度
【单选题】 《建设工程安全生产管理条例》规定,施工单位应当设立安全生产管理机构,配备( )人员。
①  专职安全生产管理
②  兼职安全生产管理
③  安全生产监理
④  专兼职安全生产检查
【单选题】 下列不属于建筑施工企业三类人员的是。( )
①  专职安全生产管理人员
②  项目负责人
③  企业主要负责人
④  工程项目施工员
【单选题】 根据规定,旎工单位的项目负责人应当由( )的人员担任
①  施工单位任命
②  取得技术职称
③  取得相应执业资格
④  注册类工程师
【单选题】 ( )负责保证工程项目,文明施工资金的有效使用。
①  施工单位负责人
②  工程项目技术负责人
③  施工单位安全管理机构负责人
④  项目负责人
【单选题】 《建筑工程安全生产管理条例>规定,建设单位在编制工程( )时,应当确定建设工程安全作业环境及安全施工措施所需要的费用。
①  施工预算
②  概算
③  施工方案
④  决算
【单选题】 建筑企业安全教育三类人员专指( )。
①  施工企业主要负责人、项目负责人、专职安全生产管理员
②  企业主要负责人、项目经理、专职质量员
③  企业主要负责人、项目经理、施工工长
④  企业主要负责人、分包单位负责人、项目负责人