C语言 百分网手机站

C语言考试试题(5)

时间:2020-10-03 10:27:56 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

【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