全国计算机等级考试二级 VB上机题
昂 Torml 库（一）
图1
T1.width=T1.width+1400 T1.Height=T1.Height+400 Tl.fo ntsize=T1.fo ntsize*3
最后单击保存按钮，工程命名为 sjtl.vbp,窗体命名为sjtl.frm
图2
Text1.text=LCase（Text1.text） Text2.text=UCase（Text1.text）
一、 简单应用题（2小题，每小题20分，共计40分）
1.在考生目录下有一个工程文件 sjt3.vbp，相应的窗体文件为sjt3.frm。包含所 有控件和部分程序，如图所示。 要求：
1）
Visual Basic,Turbo C,C++,Java;
利用属性窗口向列表框添加四个项目：
2） 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮 Optio n1. 一项和单选按钮 Option2，然后单击“确定”命令按钮，则文本框中的一项和
然后单击“确定”命令按钮，则文本框中显示 XXX笔试”；当选择列表框中的
单选按钮Option2 ，然后单击确定命令按钮，则文本框中显示 XXX上机 其中“ XXX ”是在列表框中所选择的项目。
If Optio n1.Value=True then
Text1.Text=List1. List(List1.List In dex)+Optio nl.Cap tion End If
If Option2.Value=True then
Text1.Text=List1. List(List1.List In dex)+Optio n2.Cap tion End If
最后单击保存按钮
2 .在考生目录下有一个工程文件 sjt4.vbp，相应的窗体文件为sjt4.frm。在窗 体上已经有一个命令按钮。其名称为 Command1,标题为“计算并输出”；程序 运行后，如果单击命令按钮，程序将计算
500以内两个数之间（包括开头和结
尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来，这样的数有 多组，程序输出每组开头和结尾的正整数，并用“?”连接起来 这
，如图所示，
个程序不完整，请把它补充完整。 要求：
去掉程序中的注释符，把程序中的？该为正确的内容，使其实现上述功能，但不
得修改程序中的其他部分。最后把修改的文件按原文件存盘
Private Sub Comma nd1_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
Print i;\?\
End If
Next
End Sub
答案为：
1) 2)j+iSum 3)1250
综合应用题（1小题，计40分）
赋初值
进行累加 和是否为1250
在窗体上画一个文本框，名称为 Textl,初始内容为空白，并设置多行显示格式; 然后再画两个命令按钮，其名称分别为 Command1 和Command2,标题分别 为“显示”和“保存”，如图所示，编写适当的事件过程。程序运行后，如果单 击“显示”命令按钮，则读取考生
目录下的in5.txt文件，并在文本框中显示出
来，该文件是一种用随机存取方式建立的文件， 共有5个记录，要求按记录号顺 序显示全部记录，每个记录一行；如果单击“保存”命令按钮，则把所有记录保 存到考生目录下的顺序文件out5.txt中。随机文件in5.txt中的每个记录包括3 个字段，分别为姓名、性别和年龄，其名称和长度分别为： Name字符串8 Sex字符串4 Age In teger
其类型定义为： Private Type Stud Info Name As Stri ng*8 Sex As Stri ng*4 Age As In teger End Type
要求：
1）文件out5.txt以顺序存取方式建立和保存。
全国计算机等级考试二级VB上机题库以及解析
