vb期末考试练习卷7及答案

VB练习卷七

一、 语言基础题（40分）

判断题（10分）

1． 窗体的Caption 属性用来设置窗体的标题，在代码中可以用这个标题引用该窗体。 2． Print方法的缺省对象是当前窗体。

3． 任何时候按下键盘上一个键，将会触发命令按钮的KeyPress事件。

4． 用 Exit Do语句可以退出 Do --- Loop 循环，用 Exit Sub语句可以退出Sub

过程，同理用 Exit If 也能退出If条件语句。

5． Dim a1,a2 As Integer语句显式声明变量a1和a2都为整型变量。 6． 字符串常量必须用西文的双引号或单引号括起来。

7． 执行Do?Loop While语句时，不管条件真假，首先会无条件地执行一次循环。 8． 在工具箱内双击命令按钮图标，便会在窗体上建立一个命令按钮。 9． 对象的Top属性和Left属性都必须大于或等于零。 10． 在窗体或图片框中用line图形方法画完直线后，窗体或图片框控件的CurrentX

和CurrentY属性值自动被置成直线终点的坐标位置值。 单选题（10分）

1． 以下哪个控件没有Caption属性。 [A] Label [B] OptionButton [C] Frame [D] ListBox

2． 将通用对话框控件Commondialog1显示为颜色对话框，可以改变该控件的哪个属性？ [A] Color [B] FileName [C] Action [D] Filter

3． 将当前窗体中显示的文字及绘制的图形全部清除，可以用以下哪个方法？ [A] Me.Clear [B] Me.Cls [C] Me=”” [D] Me.Delete

4． 在拖动滚动条的滚动块的时候，在没有松开鼠标前会触发滚动条的什么事件？ [A] Change [B] Keydown [C] Scroll [D] Dragover 5． 某顶级菜单项的热键字母为F，以下哪个操作等同于单击该菜单项？ [A] 同时按下[Ctrl]和[F]键 [B] 按下[F]键 [C] 同时按下[Alt]和[F]键 [D] 同时按下[Shift]和[F]键

6． 要使得文件列表框file1中只显示文件后缀名为bmp和jpg的图片文件，以下哪个语句是

对的？

[A] File1.Pattern = \[B] File1.Pattern = \图片文件\[C] File1.Pattern = \

[D] File1.Pattern = \图片文件|*.bmp;*.jpg \

7． 要将定时器控件的宽度设置的大一些，以下哪个叙述是正确的？ [A] 设置定时器的Width属性 [B] 设置定时器的left属性 [C] 设置定时器的Height属性 [D] 无法对定时器的宽度进行设置 8． 要改变Label控件中文字的颜色，可以设置Label控件的什么属性？

第1页

[A] FontColor [B] FillColor [C] ForeColor [D] BackColor 9． 哪一条语句执行后将会删除文本框Text1中选中的文本？ [A] Text1.Text=”” [B] Text1.SelText=”” [C] Text1.Clear [D] Text1.SelText.Clear

10．将定时器的时间间隔设置为1秒，那么定时器的Interval属性值应设为？ [A] 1000 [B] 1 [C] 100 [D] 10

填空题（20分） 1． 将数学式(2?r?e?5)lnx写成VB表达式。

2． 已知a=2,b=3,c=4,d=5 求表达式not a<=c or 4*c=b^2 and b<>a+c的值。 3． 写出a和b都为正整数的VB逻辑表达式。 4． 写出表达式Val(\的值。 5． 写出表达式 Chr(Asc(“china”)+3)的值。

6． 写出将X四舍五入保留两位小数的VB表达式。

7． 写出循环结构FOR I=30 TO 1 STEP –3 ???Next I 的循环次数。

8． 要在图片框控件pic的中央画一个半径为1000twips的红色圆形，画圆语句怎么写？ 9． 要将文本框中所有输入的字符都显示为*，应该如何进行设置？ 10． 写出在VB中调用C盘Windows文件夹中的可执行文件为calc.exe的计算器程序的

语句。

二、 程序阅读题（20分） 1．

Private Sub Form_Click() For i = 5 To 1 Step -1 Print Space(10 - i); For j = 1 To 2 * i

Print Trim(Str(i)); Next j Print Next i End Sub

写出单击窗体后程序的运行结果。 2．

Private Sub Form_Click() Dim x As Integer Static s As Integer

第2页

x = Val(InputBox(\请输入一个正整数=\ If x Mod 2 = 0 Then s = s * x Else

s = s + x End If

Me.Print \End Sub

写出单击窗体四次，每次输入分别为1，2，3，4后，窗体上显示的结果。 3．

Private Sub Form_click()

Open \ Call outputdata(\ Close End Sub

Private Sub outputdata(filename As String) Dim a As String, b As Integer Open filename For Output As #2 Do While Not EOF(1) Input #1, a, b

If Left(a, 1) = \李\ Print #2, a, b End If Loop End Sub

已知在c:\\data1.dat文件中数据如下： 张寇,78,李琳,80,王澜,56 司马,38 李晓,90 刘召,50 李名,45

写出单击窗体后，c:\\data2.dat文件中的数据。 4．

Option Explicit Dim x As Integer

Private Sub Form_Click() Static y As Integer Call sub1(y)

第3页

Print \ x = fun1(y)

Print \End Sub

Public Sub sub1(x As Integer) x = x + 1 End Sub

Public Function fun1(ByVal x As Integer) As Integer fun1 = 2 * x End Function

写出连续单击窗体两次后程序运行结果。 三、 程序填空题（20分）

1．查找程序：下列程序段是用于在文本框Text1显示的文本中查找任意给定的字符串，查找的内容由键盘输入；将查找结果（在文本框中找到该字符串的个数或没有找到）用消息框给出。

Private Sub Form_Click()

Dim Strfind As String, Length As Integer, Sum As Integer, I As Integer Strfind = InputBox(\请输入查找的字符串内容\ Length = -------（1）------- I = 1 Sum = 0

Do While I <= -------（2）-------

If Mid(Text1.Text, I, Length)= -------（3）------- Then Sum = Sum + 1 End If I = I + 1 Loop

If -------（4）-------Then MsgBox \没有找到！\ Else

MsgBox \找到了\（5）------- & \个\ End If End Sub

2．以下程序随机产生100个属于[3，1000]之间的整数，利用Isprime判断一个整数是否是素数的函数过程挑出其中的素数放在b数组中，对这些素数按从大到小的顺序进行排序，最后按每行5个的格式输出这些素数。 Private Sub Form_Click() Dim a(100) As Integer

第4页

Dim b(100) As Integer

Dim i As Integer, j As Integer, n As Integer For i = 1 To 100

a(i) = -------（1）------- Next i

For i = 1 To 100

If Isprime(a(i)) Then n = n + 1

b(n) = -------（2）------- End If Next i

For i = 1 To n - 1

For j = i + 1 To n

If b(i) < b(j) Then

swap -------（3）------- End If Next j Next i j = 1

For i = 1 To n Print b(i); \

If -------（4）------- Then Print j = j + 1 Next i End Sub

Public Function Isprime(x As Integer) As Boolean Dim i As Integer Isprime = False For i = 2 To x - 1

If x Mod i = 0 Then Exit For Next i

If i > x - 1 Then

-------（5）------- End If End Function

Public Sub swap(a As Integer, b As Integer) Dim temp As Integer temp = a

第5页

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb期末考试练习卷7及答案在线全文阅读。