没有合适的资源?快使用搜索试试~ 我知道了~
VB程序设计编程考试题及答案.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 95 浏览量
2021-12-05
09:29:26
上传
评论
收藏 52KB DOC 举报
温馨提示
试读
11页
VB程序设计编程考试题及答案.doc
资源推荐
资源详情
资源评论
VB 程序设计编程考试题及答案
1. 输入 3 个数,输出最大的数
Private Sub command1_click()
Dim max
For i = 1 To 3
n = Val(InputBox("输入第" & i & "个数"))
If n > max Then
max = n
End If
Next
Print "三个数中最大的数是" ; max
End Sub
2. 有一元二次方程:aX
2
+bX+c=0,依次输入 a,b,c,判断此方程是否有实根
Private Sub Command1_Click()
Dim a, b, c, n
a = Text1
b = Text2
c = Text3
n = b * b - 4 * a * c
If n >= 0 Then
Label4 = "方程有根"
Else
Label4 = "方程无根"
End If
End Sub
3. 输入一个百分制的成绩,若大于等于 60,则用消息框弹出,显示“恭喜!成绩通过!”,若
小于 60,则弹出消息框,显示“抱歉!成绩没有通过!
Private Sub Form_Load()
Text1 = ""
End Sub
Private Sub Command1_Click()
Dim n
n = Text1
If n > =60 Then
Val (MsgBox("恭喜!成绩通过!"))
Else
Val (MsgBox("抱歉!成绩没有通过!"))
End If
End Sub
4. 输入一年份,判断它是否为闰年,并显示有关信息。(判断闰年的条件是:年份能被 4
整除但不能被 100 整除,或者能被 400 整除)
Private Sub Command1_Click()
Dim y%
y = InputBox("请输入年份")
If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then
Val (MsgBox("闰年!"))
Else
Val (MsgBox("平年!"))
End If
End Sub
5. 输入学生的百分制成绩,转换输出为五级制成绩,90~100 分转换为优秀,80~89 转换
为良好,70~79 转换为中等,60~69 转换为及格,0~60 转换为不及格。
Private Sub Command1_Click()
a = Val(InputBox("请输入成绩"))
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 Sub
6. 随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。例如,产生
246,输出是 642。
Private Sub Command1_Click()
Dim x%, x1%, x2%, x3%
x = Text1
x1 = x Mod 10
x2 = (x Mod 100) \ 10
x3 = x \ 100
Label1 = x1 * 100 + x2 * 10 + x3
End Sub
7. 输入两个整数,求它们的最大公约数。
private Sub Command1_Click()
n1 = InputBox("输入 n")
m1 = InputBox("输入 m")
If m1 > n1 Then
m = m1: n = n1
Else
m = n1: n = m1
End If
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Print "m n 的最大公约数是:"; n
End Sub
8. 编程求 200--400 范围内 5 的倍数或 7 的倍数之和。(一个数如果同时是 7 和 5 的倍数,则
只能加一次。。
Private Sub Command1_Click()
For i = 200 To 400
If i Mod 5 = 0 Or i Mod 7 = 0 Then
Sum = Sum + i
End If
Next i
For i = 200 To 400
If i Mod 5 = 0 And i Mod 7 = 0 Then
Sum = Sum - i
End If
Next i
Print “倍数之和=”; Sum
End Sub
9. 计算 100~300 之间所有能被 3 和 7 整除的数之和
Private Sub Command1_Click()
Dim i
Sum = 0
For i = 100 To 300
If i Mod 3 = 0 And i Mod 7 = 0 Then
Sum = Sum + i
End If
Next i
Print Sum
End Sub
10. 分别统计 1-100 中,满足 3 的倍数、7 的倍数的数各有多少。
Private Sub Command1_Click()
Dim i, s3, s7
s3 = 0
s7 = 0
剩余10页未读,继续阅读
资源评论
wujuhua100020000
- 粉丝: 0
- 资源: 3万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功