《vb复习题.docx》由会员分享，可在线阅读，更多相关《vb复习题.docx（9页珍藏版）》请在三一文库上搜索。
1、 【程序填空】功能：输入任何一个英文字母x,若 x 的值为 a,c,d-f , 则显示 x 的大写字母；若 x 的值为 m,o,p-z, 则显示 x 的小写字母；若 x 的值为其它的值 , 则显示 xa （如输入的 X 的值是g ，则显示ga）Private Sub Command1_Click()I*SPACE*I*SPACE*End SubCase= UCase(x)Case m, o, p To z= LCase(x)Case Else *SPACE*End SelectEnd Sub【程序填空】功能：窗体上建立了一个文本框Text1（输入口令）和一个命令按钮Command检查）判断密码
2、是否正确，并显示相应提示在加载窗体时设置密码框最大长度为8 ，密码显示字符为“ * ”dim x as stringPrivate Sub Command1_Click()I *SPACE*If x 【】 ThenMsgBox ( 欢迎你用机!)ElseMsgBox ( 对不起，口令错)End IfPrivate Sub Form_Load()I*SPACE*Text1. 【】 = 8I*SPACE*Text1.End Sub【程序填空】功能：输入一个数 , 若大于 0, 则显示 + ；若小于 0，则显示 - ；若等于 0, 则显示 零 。Private Sub Command1_Click(
3、 )x = ValSelect Case xI*SPACE*Case Is = 90 Then优秀 I*SPACE*ElseIf 【】 ThenElseIf x = 60 Then *SPACE*SPACE*不及格 End IfEnd Sub 【程序填空】 题目：已知用 inputbox 函数输入两个数 x 和 y ，比较它们的大小，使得 x 大于 y。Private Sub Form_Click()Dim x As Single, y As Singlex = InputBox( 输入数据 1： )I*SPACE*y = 【】Print x 值, y 值Print x, yIf x y Th
4、enI*SPACE*I*SPACE*I*SPACE*End IfPrint x, yEnd Sub 【程序填空】功能：以下程序的功能为，单击窗体后如果输入的数据分别为 W， 8 和 时，窗体上显示的内容分别是： W is Alpha Character 、 8 is Numeral Characteris Other CharacterPrivate Sub Form_Click()Dim strC As String * 1strC = InputBox( 请输入数据)*SPACE*Select Case*SPACE*Case a To z 【】strC + Is Alpha Charact
5、er Case 0 To 9strC + Is Numeral Character*SPACE*【】 ElsestrC + Is Other CharacterEnd SelectEnd Sub 【程序改错】 题目：以下程序功能是输入三个数，由大到小排序。Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click()输入正整数)输入正整数)输入正整数)Dim nTemp As IntegerA = Val(InputBox(Please input first integer, B
6、= Val(InputBox(Please input second integer, C = Val(InputBox(Please input third integer, *FOUND*If A = C ThennTemp = AA = BB = nTempEnd If*FOUND*If B = C ThennTemp = AA = CC = nTempEnd IfI*FOUND*End IfEnd IfIf A = B ThennTemp = BB = CC = nTempEnd IfPrint The integers in order is; A; B; CEnd Sub【程序改错
7、】题目 : 请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（ 1）在 100 元以上者，按九五折优惠；（ 2）在200 元以上者，按九折优惠； （ 3） 300 元以上者，按八折优惠； （ 4） 500 元以上者按七折优惠。Option ExplicitPrivate Sub Command1_Click()Dim x As Single, y As Single x = ValIf x 100 ThenI*FOUND*x = yElseIf x 200 Theny = * xElseIf x 300 Theny = * xElseIf x
8、 500 Then y = * xElseI *FOUND*Else IfEnd IfI*FOUND*= xEnd Sub 【程序改错】题目 : 密码判断程序，如果密码为 12345 则显示“恭喜，密码正确”，否则显示“很遗憾，密码错误”，要求文本框中只允许输入数字。Option ExplicitPrivate Sub Command1_Click()Dim strPws As StringstrPws = TrimI*FOUND*If Len(strPws) 0 Then Exit SubIf strPws = 12345 ThenI*FOUND*MsgBox 恭喜，密码正确, 验证Else
9、MsgBox 很遗憾，密码错误 , , 验证 End IfEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)I*FOUND*If Not (KeyAscii = 49 And KeyAscii = 0 And a 0 ThenI*FOUND*root1 = (Sqr(work) / (2 * a)I*FOUND*root2 = (Sqr(work) / (2 * a) 有二个实根 + Str$(root1) + , + Str$(root2)Else 无实根 !End IfEnd Sub 【程序设计】题目： ( 事件 ) 单击窗体( 响应 ) 用输入框输入一自然数，判断是 正数 、 负数 或 零 ，并根据输入的数用消息框显示正数 、 负数 或零。题目：请用 Select 语句编程计算打折后的金额折扣方法如下:购物 300 以下，无优惠(使用 MsgBox 显示“无优惠”) ；购物300 以上，95 折；购物500 以上，9 折；购物1000 以上，85 折；购物5000 以上，8 折