请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
A.1
B.5
C.27
D.45
答案
更多“在窗体上画一个名称为Command1的命令按钮， 一个名称为Label1的标签， 然后编写如下的事件过程：Private Sub Command1_Click()s = 0For i = 0 To 1…”相关的问题
第1题
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是______。
A．1
B．5
C．27
D．45
第2题
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
(1) 在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图19-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm
(2) 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个子菜单项，名称分别为Cooy和Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把 Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图19-2所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
.jpg)
第3题
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2＜＞0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后，单击命令按钮，输出结果是【 】。
第4题
在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dima As Variant
a=Array(1，2，3，4)
j=1
Fori=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是()。
A、4321
B、12
C、34
D、1234
第5题
第6题
Private Sub Command1_Click()
Dim a
a =
Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g
”)
Print a(1); a(3); a(5)
End Sub
A.a b c
B.b d f
C.
D.a c e
E.出错
第8题
A．CommonDialog1.ShowOpen
B．CommonDialog1.ShowFont
C．CommonDialog1.ShowColor
D．CommonDialog1.ShowSave
第9题
A.一个宏组中有多个单个宏
B.宏组中的每个单个宏都必须有一个宏名
C.宏组必须有名称，宏组中的单个宏有些可以没有名称
D.宏组中的每个单个宏都可以被窗体或者报表中的控件连接
第10题
运行下列程序：
Private Sub Command1_Click()
Dim s1 As String * 1
Dim s2 As String
s1 = "a"
For i = Asc(s1) To Asc(s1) + 4
s2 = s2 & Chr(i)
Next i
Print s2
End Sub
单击Command1命令按钮后，则在窗体上显示的结果是()。
A.a
B.abcde
C.aaaa
D.s2
