vb4 程序控制结构1.docVIP

实验四 程序控制结构(一) 一、功能：每次点击“出题”按钮，随机出1道加法题目，参加运算操作数在1-100之间，用户在textbox输入答案。点击“确定”按钮，利用msgbox给出输入的答案是正确或错误。 需要用到的知识点：if……then……else结构,Msgbox函数，Randomize，rnd函数，Val函数 二、功能：制作一个简单的趣味心理测试小程序，心理测试的题目为下列红色字，把这个内容做成程序（也可自己设计一个心理测试题目）。 闹钟与你的人际关系 请选择答案： 明早要早起，你担心自己不能按时起床，只好调好闹钟提醒自己。你会把闹钟放在什么地方呢？ A.一伸手就可以关到的地方 B.放在耳边，吵醒自己 C.在听力范围内，越远越好 选择A．你虽然很想拥有独立自主的坚强个性，而且凡事也表现出一副我自己来的潇洒样子，但你非常在意他人的看法。也许对方说什么你不见得会照样去做，但是你总会征询别人的意见。因为你总是觉得，听听并不会少块肉，还给别人一个面子，给自己增加一些人际关系，何乐而不为呢？ B．你总是那么人见人爱！你非得将闹钟放在耳畔，让自己觉得可以按时起床，才能安心入睡。你具有十分依赖他人的特质，有平易近人的性格，具有协调能力的你很容易就融入团体中。 C．你在一个团队中大都能够发挥出过人的领导能力，但是要绝对小心，别太嚣张。你也是最容易成为众矢之的的那种人，你做事干脆，不喜欢依赖他人，拥有自己独特的风格。 提示： （1）可以textbox在显示结果，将它的multilines属性设为true可以显示多行文本 三、如果没有输入答案按“确定”，那么利用MsgBox给出提示，如果输入的答案不是数字，那么利用MsgBox给出提示，如果答案为1则提示正确，否则错误。 提示：Isnumeric( )函数是判断是否为数字，若结果为true，则是数字，否则不是数字。 四、请完成下面程序设计，输入月份，单击窗体后在窗体上打印输出此月份为某一季节。 五、已知三边边长，求三角形面积。 提示：三角形面积公式：先判断可不可以构成三角形，再求面积。 P=(a+b+c)/2 S=sqr(p*(p-a)*(p-b)*(p-c)) 六、会员折扣查询：若会员证开头为“V”，则打8.5折；若开头为“C” ，则打 9.5折；其他为原价销售。 七、机票打折问题：（用IF与SELECT语句） （1）7-9月份，若订数20张，优惠15%，若订数10张，优惠5%； （2）1-5，10，11月，若订数20张，优惠25%，若订数10张，优惠15% 提示： Select Case Val(Text1.text) Case 7 To 9 If …..Then …… ElseIf …..Then………… …………. Else ………… End If Case 1 To 5, 10, 11 If …..Then …… ElseIf …..Then………… …………. Else ………… End If Case Else Text4.text = Text2.text * Text3.text End Select