窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器,并有下面的事件过程: Private Su
A.命令按钮每10秒向左移动一次
B.命令按钮每10秒向右移动一次
C.命令按钮每10毫秒向左移动一次
D.命令按钮每10毫秒向右移动一次
A.命令按钮每10秒向左移动一次
B.命令按钮每10秒向右移动一次
C.命令按钮每10毫秒向左移动一次
D.命令按钮每10毫秒向右移动一次
在窗体上添加一个命令按纽,名为command1,其事件过程如下,程序运行后,其输出的结果为______ 。 Private sub_command1_ click () Dim a a=array(1,2,3,4,5) For k=1 to 4 S=s+ a(k) Next k Print s End sub
A.10
B.14
C.15
D.120
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sit3.vbp。
2.在考生文件夹中有工程文件sit4.vbp,它包含一个窗体文件form1。在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为Command1,标题为“复制”。要求程序运行后,在列表框中自动建立四个列表项,分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项,则单击“复制”按钮时,可以把该项复制到文本框中(程序运行结果如图2—2)。
要求:编写程序,以实现试题要求的功能。
注意:存盘时必须放在考生文件夹下,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。
在窗体中有一个名为(Command1的命令按钮,Click事件的代码如下:
单击命令按钮后,标签显示的结果是()。
在窗体上添加有一个命令按钮,(名为Command1),然后编写如下事件过程: Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next I MsgBox x End Sub 打开窗体后,单击命令按钮,消息框的输出结果是 ______。
A.7
B.15
C.157
D.538
在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后,如果单击“读取”按钮,则读入in.txt文件中的50个整数,放入一个数组中(数组下界为1),并在文本框Text1中显示出来,运行界面如图6-5所示。如果单击“保存”按钮,则把数组中的前30个数据在文本框Textl中显示出来,并存入考生文 件夹中的文件result.txt中。(考生文件夹中有标准模块mode5.bas,其中的writeData过程可以把指定个数的数组元素存人result.txt文件。)
注意:在考生乏件夹中有工程文件si5.vbp及其窗体文件sj5.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“b”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下,窗体文件名为sis.frm,工程文件名为sj5.vbp,结果存入result.txt文件,否则没有成绩。 在考生文件夹中有工程文件sis.vbp及其窗体文件sis.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码: Private Sub Command1_Click m=2.17 n=Len(Str$(m.+Space(5). Me!Text1=n End Sub 打开窗体运行后,单击命令按钮,在文本框中显示
A.5
B.8
C.9
D.10
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:
Private Sub Command1 Click() Dim a(10)As Integer Fork=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k)) End Sub 运行程序,单击命令按钮,输出结果是()。
A.18
B.12
C.8
D.6
窗体Form1上有一个名称为Command1的命令按钮,以下对应窗体单击事件的事件过程是()。
A.Private Sub Form1 Click() End Sub···
B.Private Sub Form. Cliok() End Sub···
C.Private Sub Command1 click() End Sub···
D.Private Sub Command Click() End Sub···
在窗体上添加一个名为Command1的命令按钮,然后编写如下程序:
Function m(x As Integer, y As Integer) As Integer
m=IIf(x>y,x,y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=1
b=2
MsgBox m(a,b)
End Sub
打开窗体运行后,单击命令按钮,消息框中输出结果为【 】。
在窗体中添加一个名为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() a=75 If a>60 Then k=1 ElseIf a>70 Then k=2 ElseIf a>80 Then k=3 ElseIf a>90 Then k=4 EndIf
A.1
B. 2
C. 3
D. 4