vb期末考试复习资料（经典总结版）(16)

9设计一个销售彩电(3000元/台)、冰箱(2500元/台)、洗衣机(1000元/台)的程序(商店送货上门时需加收100元)。设计程序时,窗体中包括2个框架、3个选择按钮(用于选择商品)、3个文本框(用于输入商品的台数)、2个单选按钮(用于选择送货方式：自取或送货)、1个命令按钮(用于计算金额)和1个文本框(用于显示总合额) 参考答案： （一）、选择题

1 C 2 A 3 D （二）、编程题

4将程序代码写在窗体的Click事件过程中。程序代码如下: Private Sub Form-Click() Dim x As Integer

x=Cint(Val(InputBox(\输人一个整数\输入\If x Mod 3=0 Or x Mod 5=0 Then Print x;\能被3或5整除\End If End Sub

5任意三条边能否构成三角形的条件是:三边都必须大于零,同时任意两边之和必须大于第三边。程序代码如下：

Private Sub Form-Click()

Dim a As Single,b As Single,C As Single,s As Single,area As Single a =Val(InputBox(\输入第一条边的长度\输入\b =Val(InputBox(\输入第二条边的长度\输入\C =Val(InputBox(\输入第三条边的长度\输入\If a >0 And b >0 And c >0 Then

If a +b >c And b +c >a And a +c >b Then

s =(a+b +c)/2

area=Sqr(s*(s-a)*(s-b)*(s-c))

Print \面积area=\” ” Else

41

Print \错误!任意两边之和需大于第三边。\End If Else

print\错误!边长需大于零。\End If End Sub

6是闰年的条件是:年号能被4整除并且同时不能被100整除,或者年号能被400整除。程序代码如下: Private Sub Form-Click() Dim y As Integer

y=CInt(Val(InputBox(\输入年号\输人\

If(y Mod 4=0 And y Mod 100<>0)Or (y Mod 400=0)Then

Print y;\是闰年\Else

Print y;\不是闰年\End if End Sub

7程序代码如下： Private Sub Form-Click()

Dim a As Single,b As Single,C As Single,t As Single a =Val(InputBox(\输入第一个数\输入\b =Val(InputBox(\输人第二个数\输入\c =Val(InputBox(\输入第三个数\输入\If a >b Then t=a : a =b: b =t If a >C Then t=a : a =c: c=t If b >c Then t =b: b =c: c =t Print \从小到大的顺序是:”;a;b;c End Sub

8程序代码如下： Private Sub Form-Click()

42

Dim x As Long

x=Val(InputBox(\输人一个0~99999间的整数\输人”)) If x\\10=0 Then Print X;\是1位数\ElseIf x\\100=0 Then Print x;\是2位数\ElseIf x\\1000=O0Then Print x;\是3位数\ElseIf x\\10000=0 Then Print x;\是4位数\Else

Print x;\是5位数\End If End Sub

9新建一个工程,在窗体上添加2个框架(标题分别为\商品\和\取货方式”),在第1个框架内添加3个选择框和3个文本框,3个选择框的名称分别为Check1、

check2、chck3,分别表示选择购买彩电、冰箱和洗衣机;3个文本框的名称分别为

Text1、Text2和TeE币,分别表示3种商品需要购买的数量。在第2个框架内添加2个单选按钮,名称分别为Option1和Option2,分别表示\商店送货\和\自取\。最后在窗体上添加一个命令按钮和一个文本框,名称分别为Command1和Text4,分别用于计算金额和显示金额。程序代码如下: Private Sub Commandl-Click() Dim sum As Single sum =0#

If Check1.Value Then sum =sum +3000*Val(Text1.Text) End If

If Check2.Value Then

sum =sum +2500*Val(Text2.Text) End If

43

If Check3.Value Then

sum =sum +1000*Val(Text3.Text) End If

If Option1.Value =True Then sum =sum +100 End If

Text4.Text =sum End Sub

六、循环程序结构（一）、选择题

1对于下面结构的循环语句

Do Until条件

循环体 loop 正确的描述是:

(A) 如果\条件\是一个为0的常数,则不执行循环体 (B) 如果\条件\是一个为0的常数,则至少执行一次循环体 (C) 如果\条件\是一个不为0的常数,则至少执行一次循环体 (D)不论条件是否为\真\至少要执行一次循环体 2序运行时,在窗体上单击左键,则输出结果为: Private Sub Form-click()

Dim m As Integer,n s Integer, j as integer, k As Integer n=0 For m=1 To 3

For j=1 Tom

For k=j To3

n=n+1

Next k,j,m Print n

44

End Sub

(A) 6 (B) 10 (C) 14 (D) 21 3设有以下程序段： Dim i As Integer,j As Integer i=1

Do While i <4

i=i+l

For j=5 To 1 Step-1

Print i*j Next j loop

则其中的语句Print i*j 的执行次数是:

(A)15 (B)16 (C)17 (D)18 4下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form-Click() Dim k As Integer,y As Integer y =3:k=5

For k =l To 5 Step-1

y =y+k Next k Print y;k End Sub

(A)3 1 (B)3 5 (C)8 6 （D）3 6 5下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form_Click()

Dim x As Integer,a As Integer,y As Integer For x=l To 2

a =0 For y=l To x+1

a =a +1 Next y

45