下载APP
【简答题】
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+5n=n+1Ifi>30ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是______。
参考答案：
参考解析：
刷刷题刷刷变学霸
举一反三
【单选题】在窗体模块的通用部分有一条语句"Public A As Integer"，则变量A的作用域是( )。
A.
局部变量
B.
窗体/模块级变量
C.
全局变量
D.
静态变量
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
【多选题】在相同的条件下重复一个行为或试验，不确定性事件所出现的结果的特点是( )。
A.
所出现的结果有多种
B.
出现的结果只有一种
C.
具体是哪种结果事前不可预知
D.
出现的结果能事前预知
E.
出现的结果是确定的
【单选题】标志着清政府被迫放弃闭关政策，开始面向世界，基本上完成了从传统的理藩向近代外交转化的事件是1861年( )。
A.
辛酉
B.
总理各国事务衙门的设立
C.
洋务运动的兴起
D.
外务部的成立
【单选题】在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Te，然后编写如下程序： Private Sub Command1_Click( ) Dima(5)，b(5) Forj：1 T04 s(j)=3*j b(j)=a(j)*3 Next j Te.Text=b(j/2) End Sub 程序运行后，单击命令按钮，在文本框中显示
A.
25
B.
18
C.
36
D.
35
【单选题】假定窗体的名称( Name属性)为Form1,则把窗体的标题设置为“VB Test”的语句 是( )
A.
Form1= “ VB Test ”
B.
Caption= “ VB Test ”
C.
Caption= “ VB Test ”
D.
Form1.Text= “ VB Test ”
E.
Form1.Text= “ VB Test ”
F.
Form1.Name= “ VB Test ”
G.
Caption= “ VB Test ”
H.
Form1.Text= “ VB Test ”
【单选题】在窗体上放置一个文本框Text1,编写下列事件过程: Private Sub Form Load() Text1 = "" Text1.SetFocus For i = 1 To 10 s = s + i Next i Text1 = s End Sub 程序运行时,( )。
A.
Text1中显示55
B.
Text1中显示空白
C.
Text1中显示“Text1”
D.
出错
【单选题】设窗体上有3个按钮Cmd1、Cmd2和Cmd3,如下代码的功能是( )。 Private Sub Cmd1_Click() Cmd2.Enabled=False Cmd3.Enabled=False End Sub
A.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可用
B.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可见
C.
当单击按钮 Cmd1 时,按钮 2 不可用和按钮 3 不可见
D.
当单击按钮 Cmd1 时,按钮 2 不可见和按钮 3 不可用
相关题目：
【单选题】__________是地质体形成或地质事件发生距今的年龄。
A.
相对年代
B.
绝对年代
C.
相对年龄
D.
绝对 年龄
【单选题】在窗体模块的通用部分有一条语句"Public A As Integer"，则变量A的作用域是( )。
A.
局部变量
B.
窗体/模块级变量
C.
全局变量
D.
静态变量
【单选题】当窗体的大小发生变化时，触发的事件是
A.
Resize
B.
Change
C.
Unload
D.
AfterUpdate
【单选题】窗体的数据源一定不是( )。
A.
表
B.
SQL语句
C.
模块
D.
查询
【单选题】在C#创建新窗体时,每一个新窗体都自动继承( )窗体。
A.
Windows
B.
父窗体
C.
Form
D.
Forms
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
【多选题】在相同的条件下重复一个行为或试验，不确定性事件所出现的结果的特点是( )。
A.
所出现的结果有多种
B.
出现的结果只有一种
C.
具体是哪种结果事前不可预知
D.
出现的结果能事前预知
E.
出现的结果是确定的
【判断题】大班儿童能连贯地讲述事件以及对图片和物品的认识。()
A.
正确
B.
错误
【单选题】在三显示自动闭塞区段的进站信号机前方（）通过信号机柱上，应涂三条黑斜线。
A.
第一架
B.
第二架
C.
第三架
【单选题】标志着清政府被迫放弃闭关政策，开始面向世界，基本上完成了从传统的理藩向近代外交转化的事件是1861年( )。
A.
辛酉
B.
总理各国事务衙门的设立
C.
洋务运动的兴起
D.
外务部的成立
【多选题】多选题 窗体顶端 题目: 开标的流程包括.
A.
密封情况检查
B.
拆封
C.
唱标
D.
记录并存档
【单选题】与窗体和报表的设计视图工具箱比较，下列哪个控件是数据访问页特有的（ ）。
A.
文本框
B.
标签
C.
命令按钮
D.
滚动文字
【判断题】开中断指令ENI的作用是允许所有中断事件有效。（ ）
A.
正确
B.
错误
【单选题】假定窗体的名称( Name属性)为Form1,则把窗体的标题设置为“VB Test”的语句 是( )
A.
Form1= “ VB Test ”
B.
Caption= “ VB Test ”
C.
Caption= “ VB Test ”
D.
Form1.Text= “ VB Test ”
E.
Form1.Text= “ VB Test ”
F.
Form1.Name= “ VB Test ”
G.
Caption= “ VB Test ”
H.
Form1.Text= “ VB Test ”
【单选题】在窗体上放置一个文本框Text1,编写下列事件过程: Private Sub Form Load() Text1 = "" Text1.SetFocus For i = 1 To 10 s = s + i Next i Text1 = s End Sub 程序运行时,( )。
A.
Text1中显示55
B.
Text1中显示空白
C.
Text1中显示“Text1”
D.
出错
【单选题】设窗体上有3个按钮Cmd1、Cmd2和Cmd3,如下代码的功能是( )。 Private Sub Cmd1_Click() Cmd2.Enabled=False Cmd3.Enabled=False End Sub
A.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可用
B.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可见
C.
当单击按钮 Cmd1 时,按钮 2 不可用和按钮 3 不可见
D.
当单击按钮 Cmd1 时,按钮 2 不可见和按钮 3 不可用
【判断题】1952年伦敦烟雾事件直接推动了1956年英国洁净空气法案的通过。( )
A.
正确
B.
错误
【单选题】要在LCD1602第二行第5列显示字符,设置地址指令为( )
A.
0X85
B.
0X84
C.
0XC5
D.
0XC4