2021年全国计算机等级考试二级VB上机题库以及解析.doc

全国计算机等级考试二级VB上机题库(一)

图1 图2
=+1400
=+400
=*3
最终单击保留按钮，,。
=LCase()
=UCase()
简单应用题（2小题，每小题20分，累计40分）
，。包含全部控件和部分程序，图所表示。
要求：
1)利用属性窗口向列表框添加四个项目：Visual Basic,Turbo C,C++,Java;
2)请编写合适程序完成以下功效：当选择列表框中一项和单选按钮Option1,然后单击
“确定”命令按钮，则文本框中显示“XXX笔试”；当选择列表框中一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“XXX上机”。其中“XXX”是在列表框中所选择项目。
If =True then
=()+
End If
If =True then
=()+
End If
最终单击保留按钮。
2．，。在窗体上已经有一个命令按钮。其名称为Command1,标题为“计算并输出”；程序运行后，假如单击命令按钮，程序将计算500以内两个数之间（包含开头和结尾数）全部连续数和为1250正整数，并在窗体上显示出来，这么数有多组，程序输出每组开头和结尾正整数，并用“～”连接起来,图所表示，这个程序不完整，请把它补充完整。
要求：
去掉程序中注释符，把程序中？该为正确内容，使其实现上述功效，但不得修改程序中其它部分。最终把修改文件按原文件存盘。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, iSum As Integer
Print "连续和为1250正整数是："
For i = 1 To 500
' isum = 0 赋初值
For j = i To 500
' iSum = j+iSum 进行累加
If iSum >= 1250 Then Exit For
Next
' If iSum = 1250 Then 和是否为1250
Print i; " ～ "; j
End If
Next
End Sub
答案为：
1）2)j+iSum 3)1250
综合应用题（1小题，计40分）
在窗体上画一个文本框，名称为Text1,初始内容为空白，并设置多行显示格式；然后再画两个命令按钮，其名称分别为Command1和Command2,标题分别为“显示”和“保留”，图所表示，编写合适事件过程。程序运行后，假如单击“显示”命令按钮，则读取考生 ，并在文本框中显示出来，该文件是一个用随机存取方法建立文件，共有5个统计，要求按统计号次序显示全部统计，每个统计一行；假如单击“保留”命令按钮，则把全部统计保留到考生目录下次序文件 。，分别为姓名、性别和年纪，其名称和长度分别为：
Name 字符串 8
Sex 字符串 4
Age Integer
其类型定义为：
Private Type StudInfo
Name As String*8
Sex As String*4
Age As Integer
End Type
要求：