VB程序设计编程考试题及答案VIP免费

VB 程序设计编程考试题及答案 1. 输入3 个数，输出最大的数 Priv ate Su b command1_click() Dim max For i = 1 To 3 n = Val(Inpu tBox ("输入第" & i & "个数")) If n > max Then max = n End If Nex t Print "三个数中最大的数是" ; max End Su b 2. 有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Priv ate Su b Command1_Click() Dim a, b, c, n a = Tex t1 b = Tex t2 c = Tex t3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Su b 3. 输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Priv ate Su b Form_Load() Tex t1 = "" End Su b Priv ate Su b Command1_Click() Dim n n = Tex t1 If n > =60 Then Val (MsgBox ("恭喜！成绩通过！")) Else Val (MsgBox ("抱歉！成绩没有通过！")) End If End Su b 4 . 输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被 4 整除但不能被 1 0 0 整除，或者能被 4 0 0 整除） Priv ate Su b Command1_Click() Dim y % y = Inpu tBox ("请输入年份") If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then Val (MsgBox ("闰年！")) Else Val (MsgBox ("平年！")) End If End Su b 5 . 输入学生的百分制成绩，转换输出为五级制成绩，9 0 ～1 0 0 分转换为优秀，8 0 ～8 9 转换为良好，7 0 ～7 9 转换为中等，6 0 ～6 9 转换为及格，0 ～6 0 转换为不及格。 Priv ate Su b Command1_Click() a = Val(Inpu tBox ("请输入成绩")) If a > 100 Then Print "超出范围" If a >= 90 And a <= 100 Then Print "优秀" If a >= 80 And a < 90 Then Print "良好" If a >= 70 And a < 80 Then Print "中等" If a >= 60 And a < 70 Then Print "及格" If a < 60 Then Print "不及格" End Su b 6 . 随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生 2 4 6 ，输出是6 4 2 ...