VisualBasic程序设计试卷

Visual BASIC程序设计模拟试题(⼀) （⼀）单选题

1. ⼀个对象可以执⾏的动作和可被对象识别的动作分别称为。A、事件、⽅法B、⽅法、事件C、属性、⽅法D、过程、事件

2. 改变控件在窗体中的左右位置应修改该控件的（）属性。A、 TopB、 LeftC、 WidthD、 Right

3 对象不具有Caption属性。A、LabelB、OptionC、FormD、Timer

4. 将命令按钮Command1设置为缺省的活动按钮可修改该控件的属性。A、 EnabledB、 ValueC、 DefaultD、 Cancel

5．将焦点主动设置到指定的控件或窗体上，应采⽤⽅法。A、GetGataB、 SetFocusC、 SetTextD、 SetData

6. 对象不能作为控件的容器。A、FormB、PictureBoxC、ShapeD、Frame（⼆）判断题

1．Variant是⼀种特殊的数据类型，Variant类型变量可以存储除了定长字符串数据及⾃定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、Error 和Null等特殊值。

2．由Visual Basic语⾔编写的应⽤程序有解释和编译两种执⾏⽅式。3．框架控件和形状控件都不能响应⽤户的⿏标的单击事件。

4．在⼀个窗体的代码中不能使⽤Unload语句来卸载本窗体，即⼀个窗体只能由其它窗体卸载。5．⽤Cls⽅法能清除窗体或图⽚框中⽤Picture属性设置的图形。

6．当在⼀个简单组合框的⽂本框中输⼊⼀个它的列表框中没有的条⽬时，组合框会⾃动把这⼀条⽬添加到它的列表框中。7．图⽚框的Move⽅法不仅可以移动图⽚框，⽽且还可以改变该图⽚框的⼤⼩。

8．移动框架时框架内的控件也跟随移动，所以框架内各控件的Left和Top属性值也将分别随之改变。9．定时将⽂本框中的数据保存到磁盘，应选⽤Timer计时器控件。10．如果⼀个菜单项的Visible属性为False，则它的⼦菜单也不会显⽰。(三)填空题

阅读下列各叙述，将正确答案写在答卷的相应栏内。1．表达式 81\\7 MOD 2^2的值是多少？

2．设x为⼀个两位数，写出将x的个位数和⼗位数交换后所得两位数的VB表达式。3．由下列语句定义的数组占⽤多少字节的内存空间？Dim x(1 TO 14) As Integer

4．设 x=6,y=4,z=7,请写出下⾯表达式的值（值⽤True或False表⽰） .x>y And y>x-z Or xz

5．写出以图⽚框Pic1的中⼼位置为圆⼼，以700为半径在Pic1上画⼀个圆的⽅法。(四)、程序阅读

仔细阅读下列各⼩题的程序，将程序执⾏时的输出结果写在答卷的相应位置上。1. Private Sub Form_Click()Dim a As Integer

a = Val(InputBox(\"请输⼊数据\Select Case a Mod 5Case Is < 4w = a + 10Case Is < 2w = a * 2Case Elsew = a - 10End Select

Label1.Caption = \"w=\" & Str(w)End Sub

设输⼊的数据分别为14、3、125、21时，标签框Label1.Caption的值分别是多少？2. Private Sub Form_Click()

Static a As IntegerDim b As Integerb = a + b + 1a = a + bPrint a, bEnd Sub

程序运⾏时连续单击四次窗体后，a和b的值分别是多少？3.

Private Sub Form_Click()

Dim f1 As Integer, f2 As Integer, f3 As IntegerOpen \"c:\\a1.dat\" For Output As 1f1 = 2: f2 = 3Print #1, \"NO.\"; 3, f1Print #1, \"NO.\"; 4, f2For i = 5 To 7f3 = f1 + f2Print #1, \"NO.\";i, f3f1 = f2f2 = f3Next iClose #1End Sub

写出a1.dat⽂件的最终结果。4.

Private Sub Command1_Click()Const n = 6Dim xx(n) As IntegerForm1.ClsFor i = 1 To nxx(i) = i * iNext i

Call fchange(xx(), n)For i = 1 To nForm1.Print xx(i),Next i

End Sub

Sub fchange(a() As Integer, m)For i = 1 To m / 2t = a(i)

a(i) = a(m - i + 1) '①a(m - i + 1) = t '②Next iEnd Sub

（1）写出运⾏以上程序后Form1上的输出结果。

（2）写出将标记有①和②的两条语句对调后，重新运⾏程序时Form1上的输出结果。(五)、程序填空

仔细阅读下列各⼩题的程序说明和相应的程序，将应在下划线处填写的合适内容写在答卷的相应位置。1. 程序说明：在窗体上有两个命令按钮和⼀个⽂本框，名称分别为cmdstart（“开

始”）、cmdend（“结束”）和Text1。⽂本框Text1中的字符个数不超过200个。程序刚开始运⾏时，“结束”按钮成灰⾊，单

击“开始”按钮后，将⽂本框Text1.Text中的字符按其ASCII码值由⼩到⼤⾃左到右重新组合，并在窗体上输出重组后的字符串，同时使“结束”按钮能响应⽽“开始”按钮不能响应。程序代码如下：

Private Sub Form_Load()Cmdend.Enabled = FalseEnd Sub

Private Sub Cmdstart_Click()

Dim n As Integer，i As Integer, j As Integer, p As IntegerDim a(200) As String * 1，str1 As String, t As Stringstr1 = Text1.Textn = Len(str1)For i = 1 To na(i) = ⑴Next i

For i = 1 To n - 1p = i

For j = i + 1 To nIf a(p) > a(j) Then ⑵Next j

If ⑶ Then t = a(i): a(i) = a(p): a(p) = tNext iFor i = 1 To n

Print a(i);Next i⑷⑸End Sub

Private Sub Cmdend_Click()EndEnd Sub

2. 程序说明：本程序将⼀个⼤于100的偶数n分解为两个素数之和。其中nflag函数⽤于判断⾃然数x是否为素数。程序代码如下：

Private Sub Form_Click()

Dim n As Integer，x As Integer, y As Integer

n = Val(InputBox(\"请输⼊⼀个⼤于100的偶数\输⼊数据\For x = 3 To n \\ 2 Step 2If nflag(x) Theny = ⑹

If nflag(y) Then

Form1.Print n; \"=\"; x; \"+\"; yExit ForEnd IfEnd If⑺End Sub

Function nflag(x As Integer) As BooleanDim flag As Booleank = 2 : m = Int(Sqr(x))⑻

Do While k <= m

If x Mod k = 0 Then flag = Falsek = k + 1Loopnflag = ⑼End Function(六)、编程题

1.设计⼀个程序，计算下列表达式的值并在窗体上输出。要求：⽤输⼊对话框输⼊m 和n(m ≥n ≥0)；⽤Function fact(m AsInteger)过程求m!的值。

2. ⽤户界⾯如图1所⽰，⽤于将学⽣学过的单词在列表框中显⽰出来。现要求完成：（1） 单击“增加单词”按钮，将⽂本框Text1.Text 中的单词添加到列表框中并显⽰列表框中的单词数；

（2） 单击“删除单词”按钮，删除列表框中被选中的项并显⽰列表框中的单词数；（3） 单击“全部清除”按钮，删除列表框的全部选择项并显⽰列表框中的单词数；（4） 单击“退出”按钮，结束程序。

图1 部分程序代码如下：Private Sub Form_Load()Label1.Caption = \"请输⼊单词\")!(!!n m n m

Label2.Caption = \"单词数\"Command1.Caption = \"增加单词\"Command2.Caption = \"删除单词\"Command3.Caption = \"全部清除\"Command4.Caption = \"退出\"List1.AddItem \"apple\"List1.AddItem \"chinese\"List1.AddItem \"child\"List1.AddItem \"double\"List1.AddItem \"park\"List1.AddItem \"top\"Text1.Text =\" \"

Text2.Text = Str(List1.ListCount)End Sub

请分别编写四个命令按钮的单击事件的代码.