2013版VB练习题13_4_15_pdf(7)

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题 Case 10

x = 40 End Select Text2.Text = x End Sub

程序运行后，在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内

。 容是

10. 设有整型变量x，取值范围为0～100，表示学生的成绩，有如下程序段：

If x >= 85 Then Level = \ElseIf x >= 70 Then Level = \ElseIf x >= 60 Then Level = \Else

Level = \End If

下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同，请填空。 Select Case x Case

Level = \Case 70 To 84 Level = \Case 60 To 69 Level = \Case

Level = \

11.循环语句For i = 20 To 10 Step -3.3 … Next的循环次数是

。

12.下列程序中，如用For…Next计算1至100的奇数和，则下列程序划线处，应依序填入 哪些数字。

sum = 0 For i = To 100 Step sum = sum + i Next i Print sum

13.执行下面的程序段后，x的值为

Private Sub Command1_Click() For i = 1 To 9 a = a + i

Next i x = Val(i) MsgBox x

第 31 页 共 85 页

。

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题

End Sub

1

14.以下程序的功能是计算1+2+2+2+2+…+2 的值，请补充完整。

2 3 4 10

Private Sub Command1_Click() Dim a As Integer, s As Integer, k As Integer s = 1 a = 2 For k = 1 To s = s + a

Next k Text1.Text = s End Sub

15.下列程序的功能是计算出 (1×2)-(2×3)+(3×4)-(4×5)+(5×6)的值，请补全程序。

T = 0: S = 1 For N = 1 To 5

T = T + S * N * (N + 1) S = Next N Print T

16.下列程序是判断一个整数(≥3)是否为素数，请补充完整。

Dim n As Integer

n = InputBox(\请输入一个整数(>=3) \k = Int(Sqr(n)) i = 2 swit = 0

While i <= k And swit = 0 If n Mod i = 0 Then Else End If Wend

If swit = 0 Then

Print n; \是一个素数。\Else

Print n; \不是一个素数。\End If

17. Do Until 条件… Loop 循环结构中，当条件为 时结束循环。

18.欲利用下面VisualBasic程序计算出1-1/2+1/4-1/8+1/16的值，则DoWhile后面空格

第 32 页 共 85 页

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题

中应该填入什么内容。

Private Sub Form_Click() Sum = 0 I = 1 C = 1 Do While Sum = Sum + C C = (-1 / 2) * C I = I + 1 Loop Print Sum End Sub

19.下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个a。

例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。

Private Sub Command1_Click()

Dim a As Integer, n As Integer, Cout As Integer Dim Sn As Long, Tn As Long Cout = 1 Sn = 0 Tn = 0

a = InputBox(\请输入a的值：\Do

Tn = Tn * 10 + a Sn = Sn + Tn Cout = Cout + 1 Loop While Cout<= Print a, n, Sn End Sub

20.窗体上需打印以下结果

0001 0010 0100 1000

请将程序段补充完整以实现上述功能。 For i = 1 To 4 For j = 1 To 4 If

Then Print \

第 33 页 共 85 页

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题 Next j Print Next i

21.以下程序的功能是：程序运行时，单击窗体则显示如图4-1所示的图案。程序不完整， 请在划线处加上若干条语句，以实现上述功能。

Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 5 Print Tab(8 - i); For j = 1 To Print \Next j

Print Tab(10 + i); For j = 1 To Print \Next j

图4-1 运行界面

Next i End Sub

22. 以下程序用来产生20个（0,99）区间的随机整数，并将其中的偶数打印出来。

Private Sub Form_Click() Randomize For I=1 to 20 X=Int(Rnd* If X/2 = Next End Sub

23. 下面是体育比赛评分程序，20位评委，除去一个最高分和一个最低分，计算平均分（设 满分为10分）。

Private Sub Command1_Click() Max=0 ：Min=10 For I=1 To 20

N=Val(Inputbox(\请输入分数\If If S = S + N Next I

第 34 页 共 85 页

)

Then Print X

Then Max=N Then Min=N

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题 S = P = S / 18

Print \最高分：\最低分：\Print \最后得分：\；P End Sub

24. 以下程序输出斐波那契数列的前20项。斐波那契数列第一项为1，第二项为1，其后每 一项的值都是其前两项之和，即1,1,2,3,5,8,13，…。

Private Sub Form_Click() X1 = 1 X2 = 1 N = 0 Do While Print X1,X2 X1 = X2 = N = N + 1 Loop End Sub

三、写出程序或程序段的执行结果

1.判断下列程序段的执行结果。

a = 95

If a > 60 Then degree = 1 If a > 70 Then degree = 2 If a > 80 Then degree = 3 If a > 90 Then degree = 4 Print \2.判断下列程序段的执行结果。

x = -5 If Sgn(x) Then y = Sgn(x ^ 2) Else

y = Sgn(x) End If Print y

3.判断下列程序段的执行结果。

a = 5 b = 10

第 35 页 共 85 页

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2013版VB练习题13_4_15_pdf(7)在线全文阅读。