c语言as integer,C语言考试试题

C语言考试试题

五、编程题(每题5分，共10分)

1.随机产生n个两位正整数(n由输入对话框输入，且n>0)，求出其中的偶数之和，并在标签框Label1上显示。程序写在命令按钮command1的click事件中。

Private Sub Command1_Click()

Dim i As Long, s, n, sum

s = InputBox("输入一个正整数：", 10)

For i = 1 To s

Randomize

n = Int(Rnd * 100) + 1

Print n;

If n Mod 2 = 0 Then sum = sum + n

Next

label1.Caption = "偶数之和：" & sum

End Sub

2.请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物(1)在300元以上者，按九五折优惠;(2)在500元以上者，按九折优惠;(3)1000元以上者，按八折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。

Private sub command1_click()

Dim x as integer,dim y as integer

X=val(Text1.tex)

If x<300 then

X=y

Else

If x<500 then

Y=X*0.95

Else x<1000 then

Y=x*0.9

Else y=x*08

End if

End if

End if

Text2.text=y

End sub

3.编写一程序，要求单击“开始”按钮(Command1)，在列表框(List1)中输出200~300之间不能被5整除的数，单击清除按钮(Command2)，清除文本框中的全部内容。

Private Sub Command1_Click()

Dim x As Integer

x = 200

Do Until x > 300

If x Mod 5 <> 0 Then

List1.AddItem x

End If

x = x + 1

Loop

End Sub

Private Sub Command2_Click()

List1.Clear

End Sub