国家二级VB机试（上机操作）模拟试卷460
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画1个名称为Cbol的组合框，组合框的列表项分别是：北京、天津、上海。请设置组合框的参数，使其外观如图3－6所示。窗体的标题是“用组合框”。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为Form1的窗体上画1个名称为Pl的图片框，窗体的标题为“程序设计”，如图3－7(a)所示。编写适当的事件过程，使得程序运行后，单击窗体，则在图片框中显示窗体的标题，并把窗体的标题变为Basic，如图3－7(b)所示。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个组合框。按表4－3设置其相关属性。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个图片框。按表4－4设置其相关属性。
[*]
步骤2：在打开的代码编辑窗口中，编写窗体的Click事件代码。参考代码：
Private Sub Form Click( )
P1．Print Form1．Caption
Form1．Caption＝\\
解析：
简单应用题
2.(1)在考生文件夹中有一个工程文件sjt3．vbp，窗体上有2个命令按钮、1．个水平滚动条和1个计时器，其名称分别为Command1、Command2、HScroll1和’Timed，如图3－8(a)所示。程序运行后，按钮Command1、Command2的标题分别立即显示“开始”“停止”，同时把计时器的Intaval属性设置为100，Enabled属性设置为False。此时如果单击“开始”按钮，则该按钮变为禁用，而标题则变为“继续”，同时滚动条的滚动框自左至右移动，每次移动10，如图3－8(b)所示，移到右端时，自动从左端重新开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时滚动框停止移动；再次单击“继续”命令按钮后，滚动框继续移动。已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上有2个名称分别为Text1、Text2的文本框，有1个名称为Command1的命令按钮。程序运行时，在Text1文本框中输入一行单词(只含有字母或空格)，单击命令按钮后，将把每个单词的第一个字母改为大写(如果原来已是大写字母则不变)，并在Te,xt2文本框中显示出来，如图3－9所示。已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。
第1小题
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjs．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
Command1．Caption＝\\
解析：
综合应用题
3.为了验证一个正整数n(n＞3)是否为素数，最直观的方法是，看在2～n／2范围内能否找到一个整数m将n整除，若m存在，则n不是素数；若找不到m，则n为素数。在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有1个名称为Text1的文本框。请根据上面的算法，编写判断一个正整数是否为素数的函数prime，然后用这个函数找出200～300之间的所有素数，求出这些素数的和，将该数在文槲显示出来，并存入文件out5．txt中。
要求：编写函数prime的代码，然后在Form_Click事件过程中调用该函数，并计算素数的和。事件过程中已给出了把素数和保存到文件中的代码，考生不得修改。
注意：请务必把求得的和在文本框中显示出来，这样才能存入文件out5．txt，否则没有成绩。
【操作步骤】
步骤1：打开考生文件夹中的工程文件sjt5．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
Function prime(ByVal n As Integer)As Boolean
’******考生编写******
Dim flag As Boolean
flag＝IIf(n＞1，True，False)
For m＝2 To n／2
If n Mod m＝0 Then
flag＝False
Exit For
End If
Next m
prime＝flag
************************
End Function
Private Sub Form_Click( )
’ ****** 考生编写 ******
Dim sun As Integer
FOr n＝2 00 To 300
If prime(n) Then
Sum＝Sum＋n
End If
Next n
Text1．TextαSum
’ ************************
Open App．Path ＆\\
解析：
本文档预览：3600字符，共3202字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
