Exfocw[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案2(2)

Do

S = S + C * I * I C = -1*C '正负号切换 I = I+1 '循环变量增加 Loop While I<=N '循环结束条件 End Sub

三、阅读理解题（每小题4分，共20分）

1．执行下列程序后，输出的结果是：Private Sub Form_Click()

Dim x As Integer x = 10 Select Case x Case Is >= 10

Print x & x Case 7, 8, 9

Print x + x Case 0 To 6

Print x End Select End Sub

2．执行下列程序后，输出的结果是：Private Sub Form_Click() Dim i As Integer Dim t As String st = ""

For i = 1 To 12 '字符串逐字符处理 If i Mod 3 = 0 Then

st = Mid("Visual Basic", i, 1) + st End If Next i Print st End Sub

3．执行下列程序后，输出的结果是：

Private Sub Form_Click()

Dim s As Integer, n As Integer s = 0

n = 1 Do

s = s + n * n If s > 50 Then

Exit Do '强制跳出循环 End If

Exfocw[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案2

n = n + 1 Loop Until n > 6 Print s End Sub

'循环变量自增

4．执行下列程序后，输出的结果是：Option Base 1

Private Sub Form_Click() Dim a(4, 4) As Integer

Dim i As Integer, j As Integer

Dim count As Integer, s As Integer count = 1

For i = 1 To 4 '给二维数组赋值并累加特殊位置的元素值 For j = 1 To 4 a(i, j) = count count = count + 1

If i = 1 Or i = 4 Or j = 1 Or j = 4 Then s = s + a(i, j) End If Next j

Next i Print s

End Sub

5．执行下列程序后，E盘下tdata.txt文件中的内容是：Private Sub Form_Click() For i = 1 To 5 s = s + fun(i) Next i

Open "e:\tdata.txt" For Output As #1 '打开顺序文件 Print #1, s Close #1 End Sub

Private Function fun(ByVal i As Integer) As Integer Static a a = a + 1 fun = a * i

End Function

四、编程题（共20分）

1．编写一个Function函数fun，求解如下分段函数的值（x为实型变量的函数形参）（6分）

Exfocw[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案2

-x x<0

x2 0≤x≤10

100 x>10

答：Private Function FUN(ByVal x As Single) As Single Dim y As Single If x < 0 Then

y = -x

ElseIf x <= 10 Then

y = x * x Else

y = 100 End If FUN = y End Function

2．编写程序，利用随机函数产生10个[10，100]之间的整数，并存入数组中，求出该数组中最大数与最小数之差并在窗体上输出结果。（7分）

答：Dim a(9) As Integer Dim i As Integer, max As Integer, min As Integer For i = 0 To 9

a(i) = Int(Rnd * 91)+10 Next i

max = -1：min = 999

For i = 0 To 9

If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i

Print "最大及最小数之差为"; max - min 参考程序2：（排序计算）

Dim a(9) As Integer Dim i As Integer, max As Integer, min As Integer For i = 0 To 9

a(i) = Int(Rnd * 91)+10 Next i

For i = 0 To 8

For j = i + 1 To 9 If a(i) < a(j) Then

tem = a(i)：a(i) = a(j)： a(j) = tem End If Next j Next i

Print "最大及最小数之差为"; a(0) - a(9)

3．假定在E盘下有一文件data.dat，其内容为三个点的坐标，内容样式如下 4,8 2,6 3,8

每一行的前1个数据表示点的横坐标x，后一个数据表示点的纵坐标y。编写程序读取文件中的数据，并判断该三点能否构成三角形。（7分）

Exfocw[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案2

提示：利用任意两边之和大于第三边来判定三角形。 边长

L=

x1,y1）及（x2,y2）为两点坐标。

参考程序1：

Dim s(2, 1) As Integer

Dim l1 As Single, l2 As Single, l3 As Single Open "e:\a.txt" For Input As #1 For i = 0 To 2

Input #1, s(i, 0), s(i, 1) Next i Close #1

l1 = Sqr((s(0, 0) - s(1, 0)) ^ 2 + (s(0, 1) - s(1, 1)) ^ 2) l2 = Sqr((s(0, 0) - s(2, 0)) ^ 2 + (s(0, 1) - s(2, 1)) ^ 2) l3 = Sqr((s(1, 0) - s(2, 0)) ^ 2 + (s(1, 1) - s(2, 1)) ^ 2) If l1 + l2 > l3 And l2 + l3 > l1 And l1 + l3 > l2 Then MsgBox ("文件中三点能构成三角形") Else

MsgBox ("文件中三点不能构成三角形") End If