【单选题】【消耗次数：1】
假定在窗体是有两个命令按钮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
【单选题】
在窗体上画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的命令按钮，然后编写以下程序：
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
【单选题】
在窗体上画一个名称为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
④
该对话框被设置为打开对话框
【单选题】
设有如下程序：
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
【单选题】
假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（）。
①
Print26
②
Picture1.Print26
③
Text1.Print26
④
Debug.Print26
【简答题】
已知函数 。下面是实现计算该函数的程序，请填空完成以下程序。
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
随机题目
【单选题】
.当事人对职业病诊断有异议的，申请鉴定可以向作出诊断的医疗卫生机构所作地地方人民政府（ ）。
①
A、安全生产监督管理部门
②
B、劳动人事争议仲裁委员会
③
C、卫生行政部门
【多选题】
《江苏省危险化学品企业安全生产标准化评审标准》中规定关于重大危险源管理的A级否决项有（）。
①
A、 未建立重大危险源管理制度
②
B、 未建立重大危险源档案
③
C、重大危险源有重大事故隐患，且未采取安全防范措施的
④
D、未辨识、确定重大危险源
【单选题】
.根据《关于进一步明确指引卫生监管职责分工的通知》（鲁编办【2012】142号），山东省用人单位职业卫生监督检查工作由（ ）负责。
①
A、省疾病预防控制中心
②
B、省卫生厅
③
C、省安全生产监督管理部门
【多选题】
企业申请一级安全生产标准化达标评审的条件是：（）
①
A、 已通过安全生产标准化二级企业评审并持续运行2年，或者装备设施和安全管理达到国内先进水平，经集团公司推荐、省级安全监管部门同意，均可申请一级企业评审；
②
B、 已通过安全生产标准化二级企业评审并持续运行5年，或者装备设施和安全管理达到国内先进水平，经集团公司推荐、省级安全监管部门同意，均可申请一级企业评审；
③
C、 至申请之日前2年内未发生人员死亡的生产安全事故（含承包商事故），或者10人以上重伤事故（含承包商事故），或者1000万元以上直接经济损失的爆炸、火灾、泄漏、中毒事故（含承包商事故）。
④
D、 至申请之日前5年内未发生人员死亡的生产安全事故（含承包商事故），或者10人以上重伤事故（含承包商事故），或者1000万元以上直接经济损失的爆炸、火灾、泄漏、中毒事故（含承包商事故）。