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

全国计算机等级考试二级ＶB上机题库(一）

图1 　 　 　　　　 　 　 　 图２
Ｔ1。width=Ｔ１．wｉdｔh＋1４00
T1。Heighｔ＝T1．Hｅighｔ+4０0
T1。fonｔsiｚe=T1．ｆontｓｉze*3
最后单击保存按钮，,窗体命名为sjt１。frｍ。
　　 =LCａｓe（)
　 　 Text2．tｅxt＝ＵCase（Texｔ１。text）
简单应用题（２小题，每小题20分，共计40分）
．vbp,相应的窗体文件为sｊt3。fｒm。包含所有控件和部分程序，如图所示.
要求：
1）利用属性窗口向列表框添加四个项目：Viｓuａｌ Ｂasic，Turbｏ C,C++,Java；
2)请编写适当的程序完成以下功能:当选择列表框中的一项和单选按钮Optioｎ１,然后单击“确定”命令按钮，则文本框中显示“XＸX笔试”；当选择列表框中的一项和单选按钮Oｐtｉoｎ2，然后单击“确定"命令按钮，则文本框中的一项和单选按钮Optiｏｎ2,然后单击“确定”命令按钮，则文本框中显示“XXX上机”.其中“XＸX”是在列表框中所选择的项目。
If Ｏptｉon1。Ｖａlue=True theｎ
Teｘt１．Teｘt=Lisｔ１．Lｉst(）+Optiｏｎ1。Captioｎ
Ｅｎｄ Ｉf
Ｉf Option2。Ｖａluｅ＝Tｒue then
=Lisｔ1．Lisｔ(）+Oｐtiｏｎ2。Captｉon
End If
最后单击保存按钮.
２．，。其名称为Command１，标题为“计算并输出"；程序运行后,如果单击命令按钮，程序将计算５０0以内两个数之间(包括开头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来，这样的数有多组，程序输出每组开头和结尾的正整数，并用“～”连接起来，如图所示,这个程序不完整，请把它补充完整。
要求：
去掉程序中的注释符,把程序中的？该为正确的内容，使其实现上述功能,但不得修改程序中的其他部分。最后把修改的文件按原文件存盘。
Priｖate Suｂ Cｏｍmand１_Clｉｃk（）
　　 Ｄiｍ　i Ａs Iｎtｅｇer, j As　Ｉｎｔeger， iSum　Ａｓ Integer
　　Print　＂连续和为1２５0的正整数是："
　 Ｆor ｉ = 1　To ５0０ 　 　　 　
＇ isuｍ　＝　0 　 　　　 　 　赋初值
　 For j = ｉ Tｏ 500
’ 　 　 iＳum =　j+ｉSum 　　 　 　 　 进行累加
　 　 If　iSum ＞=　125０ Ｔhen Exit　Fｏr
　 　 　 Ｎext
' Ｉf 　iSum ＝ 1２５０ Then　 　 　 和是否为12５0
　 　 　 Print i; ” ~ ＂; ｊ 　 　 　 　　
　End　If
　　 　Nexｔ
Ｅnd Sub
答案为：
1）2）j+iSum 3)1250
综合应用题（1小题，计４0分)
在窗体上画一个文本框，名称为Text1,初始内容为空白,并设置多行显示格式;然后再画两个命令按钮,其名称分别为Ｃomｍand１和Ｃｏｍｍａnd2,标题分别为“显示"和“保存”，如图所示,,如果单击“显示”命令按钮,则读取考生　，并在文本框中显示出来，该文件是一种用随机存取方式建立的文件,共有5个记录,要求按记录号顺序显示全部记录，每个记录一行；如果单击“保存”命令按钮，则把所有记录保存到考生目录下的顺序文件 ouｔ5。txt中。随机文件ｉn5．txｔ中的每个记录包括3个字段，分别为姓名、性别和年龄,其名称和长度分别为：
Nａｍe　字符串　８
Seｘ 字符串 4
Aｇｅ Iｎtｅｇｅr
其类型定义为：
Pｒivaｔe Tｙpe StudInfo
　Name As String*8
　 Sex As　Ｓtring＊4
　Age As In