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

练习卷六

一、语言基础题（40分）

判断题（本题10分，每小题1分）

1．使用声明语句建立一个变量后，VB自动将数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串（””），定长的字符串则用空格填充，Variant变量被初始化为Empty，布尔型的变量初始化为False。

2．在窗体中用Show或Hide方法和在代码中将Visible属性分别设置为True或False的效果是一样的。

3．当对象具有焦点时，按下、松开键盘上一个键会触发该对象的KeyPpress 事件。该事件先于KeyDown事件而后于KeyUp事件发生。

4．Dim a1,a2 As Integer 语句显式声明变量a1和a2 都为整型变量。

5．函数Len("abc d" + Space(5))的值是5。

6．执行Do…Loop While语句时，不管条件真假，首先会无条件地执行一次循环。

7．语句Command1.Visible=False 与Command1.Enabled=False 是等价的。

8．通过对CommonDialog通用对话框控件Action属性的赋值或方法调用可以生成所需要的如Open、Save As、Color、Font、Print、Help 等常用对话框。

9．当图片框PictureBox控件的Autosize属性为True时，超过图片框尺寸的图片其超过部分会被图片框截去。

10．要创建新的顺序文件，必须先用Input或Output或Append方式打开该文件。

单选题（本题10分，每小题1分）

1．下列符号哪一个是VB中的合法变量名？______

[A] IF [B] 7AB [C] A[B]7 [D] AB7

2．数学式子Sin25°写成VB表达式是______

[A] Sin25 [B] Sin（25）[C] Sin（25*3.14/180） [D] Sin(25°)

3．函数Int(Rnd(0) * 10)是在哪个范围内的整数？______

[A] （0，1）[B] （1，10）[C] （0，10）[D] （1，9）

4．若x是一个正实数，对x的第3位小数四舍五入的表达式是______

[A] 0.01 * Int(x + 0.005) [B] 0.01 * Int(100 * (x + 0.005))

[C] 0.01 * Int(100 * (x + 0.05)) [D] 0.01 * Int(x + 0.05)

5．函数Left("Hello", 2)的值为______

[A] He [B] el [C] lo [D] True

6．函数Int(Abs(99 - 100) / 2)的值为______

[A] 1 [B] 0 [C] “1”[D] “0”

7．表达式2 * 3 ^ 2 + 2 * 8 / 4 + 3 ^ 2的值为______

[A] 64 [B] 31 [C] 49 [D] 22

8．将命令按钮Command1设置为不可见，应修改该命令按钮的______属性。

[A] Visible [B] Value [C] Caption [D] Enabled

9．重新定义图片框控件的坐标系统，可采用该图片框的______方法。

[A] Scale [B] ScaleX [C] ScaleY [D] SetFocus

10．用对话框CommonDialog1的类型设置成另存为对话框，可采用该控件的______方法。

[A] ShowOpen [B] ShowSave [C] ShowColor [D] ShowFont

填空题（本题20分，每小题2分）

1．若用变量x来存放数据765432.123456，应将x声明为____________变量类型。

2．VB共有5种类型的表达式：算术表达式、____________、关系表达式、布尔表达式和日期表达式。

3．VB是根据表达式的_______符来确定表达式的类型的。

4．写出VB算术表达式a/(c/(d+e^sqr(f))+b)所对应的数学表达式___________

5．设A=7、B=3、C=4，写出表达式：A Mod 3 + B ^ 3 / C \ 5的值________

6．把数学式T＋3≠V－2且T+V>100写成VB关系或逻辑表达式。

___________________________________

7．写出表达式Val("10.5abc2") * Fix(2.7) 的值。___________

8．程序运行时，要求当鼠标移动到文本框控件上时出现提示文本，需要对文本框的哪一个属性进行设置？___________

9．怎样在程序设计阶段创建控件数组？___________

10．Scale (0, 0)-(100, 100): Form1.Line (20, 20)-(50, 50), , B语句画出的是什么图形？________ 二、程序阅读题（本题20分，每小题5分）

1．请按顺序写出下列程序的运行结果：

Option Explicit

Dim x As Long, y As Long, z As Long

Private Sub Form_Activate()

x = 3: y = 6: z = 9

If prime(x) Then Print prime(x)

If prime(y) Then Print y

If prime(z) Then

Print z

Else

Print "Welcome!"

End If

End Sub

Private Function prime(m As Long)

Dim f As Boolean, i As Integer

f = True

If m > 3 Then

For i = 3 To Sqr(m)

If m Mod i = 0 Then f = False: Exit For

Next

End If

prime = f

End Function

2．请按顺序写出下列程序的运行结果：

Option Explicit

Dim a(5), i As Integer, j As Integer

Private Sub yd(x(), n, m)

x(0) = x(n)

If n < m Then

For i = n To m - 1

x(i) = x(i + 1)

Next

Else

For i = n To m + 1 Step -1

x(i) = x(i - 1)

Next

End If

x(m) = x(0)

End Sub

Private Function strr(x())

Dim p As String

p = Str(x(1))

For i = 2 To UBound(x)

p = p & "," & x(i)

Next

strr = p

End Function

Private Sub Form_Activate()

For i = 1 To 5

a(i) = i

Next

i = 2: j = 5

yd a(), i, j

Print strr(a)

End Sub

3．请按顺序写出下列程序的运行结果：

Option Explicit

Private Function age(n As Integer) As Integer

If n = 1 Then

age = 2

Else

age = age(n - 1) + 2

End If

End Function

Private Sub Form_Load()

Debug.Print age(3)

End Sub

4．已知Text1=”Hi!,,,friends…”，写出运行Call sep_get(Text1)后在列表框List1中显示的内容。

Public Sub sep_get(ByVal W As String)

If Mid(W, Len(W), 1) <> "," Then W = W & ","

For i = 1 To Len(W)

If Mid(W, i, 1) = "," Then

n = n + 1

End If

Next

Do Until List1.ListCount >= n

j = j + 1

If Mid(W, j, 1) = "," Then

List1.AddItem Trim(Left(W, j - 1))

W = Trim(Right(W, Len(W) - j))

j = 0

End If

Loop

End Sub

三、程序填空题（本题20分，每空2分）

1．下列程序段是产生一个转置矩阵，并分别打印出转置前后的矩阵。其中Swap是两个变量对换的子程序。

转置前的矩阵转置后的矩阵

1 2 3 4 1 1 1 1

1 2 3 4 2 2 2 2

1 2 3 4 3 3 3 3

1 2 3 4 4 4 4 4

Private Sub Form_Click()

Dim a(4, 4) As Integer, k As Integer, j As Integer, t As Integer

For k = 1 To 4

For j = 1 To 4

a(k, j) = j

Form1.Print a(k, j);

Next j

---(1)---

Next k

Form1.Print

For k = 2 To 4

For j = 1 To ---(2)---

---(3)---

Next j

Next k

For j = 1 To 4

Form1.Print a(j, 1); a(j, 2); a(j, 3); a(j, 4)

Next j

End Sub

Private Sub Swap(---(4)---)

Dim t As Integer

t = a

a = b

---(5)---

End Sub

2．下列程序段是用于在一个字符串变量中查找"red"，并用输出对话框给出找到的个数或没有找到的查找结果。

Private Sub Form_Click()

Dim Str1 As String, Length As Integer, Sum As Integer, I As Integer

Str1 = InputBox("请输入一个字符串")

Length = ---(1)---

I = 1

Sum = 0

Do While I <= ---(2)---

If ---(3)---- = "red" Then

Sum = Sum + 1

End If

---(4)---

Loop

If ---(5)---Then

MsgBox "没有找到！"

Else

MsgBox "找到了" & Str(Sum) & "个"

End If

End Sub

四、程序设计题（本题20分，每小题10分）

1．编写判断是否同时被17与37整除的Function过程。在列表框中输出100~1000之间所有能同时被17与37整除的数。

2．编写一个Function过程，取名sortxt，作用是：将s变量中的任意长度字符串按每个字符的ASCII码值从大到小重新排列后，结果放到s变量，并将值回传。

练习卷六标准答案及评分标准

五、语言基础题

单选题评分标准：本题10分，每小题1分

填空题评分标准：本题20分，每小题2分

1. Double

2. 字符串表达式

3. 运算

4.

b

e d c

a

f ++ 5. 2

6. (T+3<>V-2) and (T+V>100)

7. 21

8. ToolTipText

9. 对控件复制+粘贴

说明：只要意思表述清楚都可以得分。

10. 空心矩形

六、 程序阅读题

评分标准：每小题5分。完全与标准答案吻合可以得5分，若数据正确或格式正确则酌情给分。

七、 程序填空题

评分标准：本题20分，每空2分。

1．

（1）

Form1.Print （2）

k - 1 （3）

Call Swap(a(k, j), a(j, k)) 或 Swap a(k, j), a(j, k) （4）

a As integer,

b As integer （5）

b = t 2．

（1）

Len(str1) （2）

length （3）

Mid$(Str1, I, 3) （4）

I = I + 1 （5）

Sum=0

八、程序设计题

1．评分标准：本题10分

事件名及变量声明（1分）：变量可以不声明，但是如果声明错误要扣分。Function过程的定义（1分）

判断是否同时被17与37整除的表达式（2分）

Function过程返回值（2分）

Function过程的调用（2分）

在列表框中输出结果（2分）

参考程序：

Option Explicit

Private Sub Form_Activate()

Dim n As Integer

For n = 100 To 2000

If d(n) Then List1.AddItem n

Next

End Sub

Private Function d(x As Integer) As Boolean

If x Mod 17 = 0 And x Mod 37 = 0 Then

d = True

Else

d = False

End If

End Function

2．评分标准：本题10分

Function过程的定义（2分）

变量及数组的声明（2分）

取字符（1分）

排序（4分）

得到结果并放入s变量（1分）

参考程序：

Private Function sortxt(s As String) As String

Dim t() As String, temp As String, i As Integer, j As Integer

n = Len(s)

ReDim t(n)

For i = 1 To n

t(i) = Mid$(s, i, 1)

Next i

For i = 1 To n - 1

For j = i + 1 To n

If t(i) < t(j) Then

temp = t(i)

t(i) = t(j)

t(j) = temp

End If

Next j

Next i

s = ""

For i = 1 To n

s = s & t(i)

Next i

sortxt = s End Function