注意:下面出现的“考生文件夹”均为C:\wexam\25160002。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立1个名称为Op1的单选按钮数组,含3个单选按钮,它们的标题依次为“选择1”、“选择2”和“选择3”,其下标分别为0、1和2,初始状态下,“选择2”为选中状态。运行后的窗体如图26-1所示。
注意;存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在窗体上建立1个二级菜单,第一级含两个菜单项,标题分别为“编辑”和“帮助”,名称分别为edit和help。其中“编辑”菜单含有3个子菜单,其标题依次为“剪切”、“复制”和“粘贴”,名称分别为cut、copy和paste,如图26-2所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
第1题
组合框有3种不同的类型,这3种类型是下拉式列表框、简单组合框和 [ ] 。在这3种不同类型的组合框中,只能选择而不能输入数据的是 [ ] 。
第2题
下列程序的运行结果是______。
Sub abcd(ByValn As Integer)
n=n+5
End Sub
Private Sub Form_Click()
nx%=3
Callabcd(nx%)
Printnx%
End Sub
第4题
置为True,然后编写如下的事件过程:
Private Sub Form. Click()
Open "d:\test\smtext1.txt" For Input As 1
Do While Not
Line Input 1,aspects
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close 1
Open "d:\test\smtext2.txt" For Output As 1
Print 1, ______
Close 1
End Sub
上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。
第5题
下列程序的运行机结果是【 】。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k<=n
Print m
End Sub
第7题
在窗体上画一个命令按钮,然后编写如下程序(假定变量x是—个窗体级变量)
Dim x As Integer
Sub inc(a AS Integer)
X=K+a
End Sub
Private Sub Command1_Click()
inc2
inc3
inc4
Prmt x;
Ead Sub
程序执行后,单击Command1命令按钮,输出的结果是【 】。
第8题
下列程序段的运行结果是______。
Dimnum As Integer,a As Integer,b As Integer
a=88:b=24
Do
While b<>0
num=a Modb
a=b
b=num
Wend
Printa
Loop
第10题
有如下过程:
Sub SS(ByVal X,ByRef Y,Z)
X=X + 1
Y=Y + 1
Z=Z + 1
End Sub
执行该过程的事件过程如下:
Private Sub Command1_Click()
A = 1
B = 2
C = 3
Call SS(A,B,C) Print A;B;C
End Sub
则该程序的执行结果是【 】。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!