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
【C语言考试试题】相关文章:
C语言考试模拟测试题10-07
C语言试题(精选)10-08
C语言试题大全10-08
C语言试题训练10-08
C语言程序考试加分训练试题10-08
标准c语言笔试题10-08
c语言经典笔试题10-08
C语言程序设计模考试题10-07
C语言练习测试试题10-08
c语言常见笔试题总结10-08