全国等级考试资料网

全国计算机等级考试二级VB语言笔试试题及答案(5)

分类: 计算机  时间: 2023-11-13 17:28:28  作者: 全国等级考试资料网 

二、填空题( 每空2分,共40分)
请将每空的正确答案写在答题卡( 1)至( 15) 的横线上,答在试卷上不得分。
(1) 在窗体上画两个标签,其名称分别为Label1和Label2,Caption属性分别为“数值”及空白;然后画一个名称为Hscoll1的水平滚动条,其Min的值为0,Max的值为100。程序运行后,如果单击滚动条两端的箭头,则在标签Lable2中显示滚动条的值,如图所示。请在 [1] 和 [2] 处填入适当的内容,将程序补充完整。
Private Sub HScroll1_ [1] ()
Labl2.Caption=HScroll1. [2]
End Sub
(2) 在窗体上画一个名称为Command1、标题为“计算”的命令按钮;画两个文本框,名称分别为Text1和Text2;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”和空白;再建立一个含有4个单选按纽的控件数组,名称为Option1,标题分别为“+”、“-”、“*”和“/”。程序运行后,在Text1、Text2中输入两个数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Label4,程序运行情况如图所示。请在 [3] 、 [4] 和 [5] 处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
For i=0 To 3
If [3] =True then
opt=Option1(i).Caption
End If
Next
Select Case [4]
Case”+”
Result=Val(Text1.Text)+Val(Text2.Text)
Case”-”
Result=Val(Text1.Text)-Val(Text2.Text)
Case”*”
Result=Val(Text.Text)*Val(Text2.Text)
Case”/”
Result=Val(Text1.Text)/Val(Text2.Text)
End Select
[5] =Result
End Sub

相关文章

猜你喜欢

精选计算机