在名称为Forml的窗体上添加一个名称为Pl的图片框,请编写适当的事件过程,使得程序在运行时,每单击
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjr2.vbp,窗体文件名保存为sjt2.frm。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjr2.vbp,窗体文件名保存为sjt2.frm。
第1题
在名称为Form1的窗体上添加一个名称为Text1的文本框;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Show和Hide,标题分别为“显示”、“隐藏”,请编写适当的事件过程,使程序运行时,单击“隐藏”菜单项,文本框消失;单击“显示”菜单项,文本框重新出现,程序运行后的窗体如图所示。要求程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sit2.vbp,窗体文件名保存为sjr2.frm。
第2题
第3题
(1)在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图64-3所示。程序运行后,单击“计算”命令按钮,通过在对话框输人整数12,放入整型变量a中,然后计算a!(提示:运算结果应放入Long型变量中),在文本框中显示结果,如图64-4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程PutData,考生可以直接调用。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
(2)在考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个容器,其中一个容器中有两个单选按钮,另一个容器中有两个复选框,窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,则对文本框中的文字进行相应的设置,如图64-5所示。
窗体上的控件已经绘制出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,按原文件名并在原文件夹中保存修改后的文件。
第4题
注意:下面出现的“考生文件夹”均为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。
第5题
在窗体上画一个名称为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
第6题
窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:
Private Sub Command1 Click()
Static x As Variant
n=0
x=Array(1,2,3,4,5,6,7,8,9,10)
While n<=4
x(n)=x(n+5)
Print x(n):
n=n+1
Wend
End Sub
运行程序,单击命令按钮Command1,窗体上显示的是()。
A.1 2 3 4 5
B.6 7 8 9 10
C.2 3 4 5 6
D.6 2 3 4 5
第7题
现有一个已经建好的“fQuer;,”窗体,如下图所示。运行该窗体后,在文本框(文本框名称为tName)中输入要查询的医生姓名,然后单击“查询”按钮,即运行一个名为“qT4”的查询。“qT4”查询的功能是显示所查医生的“医生姓名”和“预约人数”两列信息,其中“预约人数”值由“病人ID”字段;范计得到,请设计“qT4”查询。
第8题
Private Sub Command1_Click()
s = 0
For i = 0 To 15
X = 2 * i - 1
If X Mod 3 = 0 Then s = s + 1
Next i
Label
1.Caption = s
End Sub
程序运行后, 单击命令按钮, 则标签中显示的内容为
A.1
B.5
C.27
D.45
第9题
A.Private Sub Text1_Change()
Command1.Caption = "计算机等级考试"
End Sub
B.Private Sub Command1_ Click ()
Caption = "计算机等级考试"
End Sub
C.Private Sub Form1_ Click ()
Text1.Caption = "计算机等级考试"
End Sub
D.Private Sub Command1_ Click ()
Text1.Text = "计算机等级考试"
End Sub
第10题
A.For i=0 To List1.ListCount-1 …… Next
B.For i=0 To List1.Count-1 …… Next
C.For i=1 To List1.ListCount …… Next
D.For i=1 To List1.Count-1 …… Next
第11题
Private x As Integer
Private Sub Command1_Click()
x = 5: y = 3
Call Proc(x, y)
Label
1.Caption = x
Label
2.Caption = y
End Sub
Private Sub Proc(ByVal a As Integer, ByVal b
As Integer)
x = a * a
y = b + b
End Sub
运行程序后, 则两个标签中显示的内容分别是
A.5和3
B.25和3
C.25和6
D.5和6