2010级 - VB期末试卷(A卷带答案 2011.6)

由天下分享时间：2024/10/18 17:21:52 加入收藏我要投稿点赞

【7】【9】

【8】【10】 1．数学表达式

3y改写为VB表达式，形式是【1】。答案 sqr(3*y) /(x+y)

x?y2．在VB 6.0中，InputBox函数返回值的数据类型是【2】。

答案：字符串类型或String

3．语句 Print Tab(5);\的功能是【3】。答案：从第5列开始输出字符串“ABC”

4．下面程序段的功能是：在文本框Text1中输入一个数值x，如果满足5

5．设a=1,b=2,c=3，语句 Print a < b Or b < c And c < a的输出结果是【5】。

答案：True

6．在窗体上放置一个标签，名称为Label1，使用语句【6】可以把标签的前景色设置为蓝色。 Label1.ForeColor = vbBlue 或 RGB(0,0,255) 或QBColor(9) 7．在窗体上放置一个图像框，名称为Image1，要使该图像框向下移动10个默认单位（twip），正确的语句是Image1.Top = 【7】答案：Image1.Top + 10 8．使用“菜单编辑器”建立了一个主菜单，名称为menu1。要把它作为窗体Form1的快捷菜单（也称为弹出式菜单）弹出，使用的语句是：答案：Popupmenu Form1. 【8】 menu1

9．在窗体上放置一个通用对话框控件，名称为CommonDialog1。使用该控件建立“打开”文件对话框时，要求只能显示文本文件(即扩展名为“.txt”的文件)，则正确的设置语句是CommonDialog1. 【9】 =\文本文件(*.txt)|*.txt\。答案：Filter 10．设磁盘上已存在顺序文件“a.txt”，为了从文件中顺序读取数据而打开该文件，正确的语句是 Open \ 【10】 As #1。答案：Input

三、读程序写结果（每空3分，共 24 分）

分数（请将答案按照题干上【】内的序号填写在下表中，否则不得分）【1】【3】【5】【7】 1．下列面程序运行后，单击窗体，输出结果是【1】。答案：1 3 9

Private Sub Form_Click() s = 0

For n=1 To 3 p = 1

For k = 1 To n p = p * k Next k s = s + p Print s; Next n End Sub

2．下列程序运行后，单击窗体，输出结果是【2】。答案：7

Private Sub Form_Click() m = 0

For k = 1 To 4 Select Case k Case 1, 2

m = m + 1 Case Is > 3 m = m + 2 Case 1 To 4 m = m + 3 End Select Next k Print m End Sub

【2】【4】【6】【8】 3．在窗体上放置一个文本框，名称为Text1。下列程序运行后，单击窗体，Text1中显

示的内容是【3】。答案：ade

Private Sub Form_Click() Text1.Text = \ s = \ For k = 1 To Len(s) ch = Mid(s, k, 1)

If ch >= \ Text1.Text = Text1.Text + ch End If Next k End Sub

4．下列程序运行后，单击窗体，输出结果是【4】。Option Base 1

Private Sub Form_Click()

x = Array(3, 5, 4, 8, 2, 6, 11, 9, 7, 4) p = x(1): s=0

For k = 2 To UBound(x) If x(k) > p Then p = x(k) s = s + p End If Next k Print p; s End Sub

5．下列程序运行后，单击窗体，输出结果是【5】。Private Sub Form_Click() Dim a(1 To 3, 1 To 3) For i = 1 To 3

For k = 1 To 3

If k = 1 Or i = k Then a(i, k) = 1 Else

a(i, k) = i + k End If Next k Next i

Print a(1, 1); a(2, 3); a(3, 3)

答案：11 24

答案：1 5 1

End Sub

6．在窗体上放置一个命令按钮，名称为Command2，并编写如下代码。

Private Sub Command2_Click()

Dim m As Integer, n As Integer, g As Integer m = 18: n = 12: g = 0 Call sub1(m, n, g) Print m; n; g End Sub

Public Sub sub1(ByVal a As Integer, ByVal b As Integer, c As Integer) If a < b Then t = a: a = b: b = t Do While b <> 0 r = a Mod b a = b b = r Loop c = a End Sub

程序运行后，单击命令按钮，则输出结果是【6】。答案：18 12 6 7．在窗体上放置一个命令按钮，名称为Command3，并编写如下代码。

Private Sub Command3_Click() Dim k As Integer k = 1

Print fun1(k); Print fun1(k); Print fun1(k); End Sub

Function fun1(a As Integer) As Integer Static c As Integer Dim b As Integer

a = a + 2: b = b + 2: c = c + 2 fun1 = a + b + c End Function

程序运行后，单击命令按钮，则输出结果是【7】。答案：7 11 15 8．在窗体上放置一个文本框，其名称为Text1，并编写如下代码。

Dim s As String

Private Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s;

End Sub 程序运行后，在文本框中输入abc，则窗体上输出的内容是【8】。答案：aababc 四、改错题（每题3分，共 6 分）（请将答案按照题号填写在下表中，否则不得分）第1题分数第2题 1．在窗体上放置一个计时器和一个标签，计时器名称为Timer1，标签名称为Label1。下列程序的功能是：

（1）在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；

（2）每触发一次Timer事件能够将标签上的字号加大2，当字号超过当前窗体的宽度时，将字号恢复为8。

程序中有一处错误，请更正。说明错误时可以使用每条语句前的编号。 (1) (2) (3) (4) (5) (6) (7) (8) (9) (10)

Private Sub Form_Load()

Timer1.Interval = 5 答案：200

Timer1.Enabled = True End Sub

Private Sub Timer1_Timer()

Label1.FontSize = Label1.FontSize + 2 If Label1.FontSize > Me.Width Then Label1.FontSize = 8 End If End Sub

2．下列程序的功能是计算1+3+5+…+99的和s。程序中有一处错误。请更正。说明错误时可以使用每条语句前的编号。

(1) (2) (3) (4)

s = 0 k = 1

Do While k <= 99