没有合适的资源?快使用搜索试试~ 我知道了~
常见VB考试题型.docx
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 96 浏览量
2022-02-23
15:03:32
上传
评论
收藏 124KB DOCX 举报
温馨提示
这些VB题目涵盖了基础的编程概念和操作,包括变量声明、数据类型、运算符、条件语句(If...Then...Else)、循环(For...Next)、输入输出(InputBox、MsgBox)、数组以及函数的使用。以下是每个题目涉及的具体知识点: 1. 圆面积和球体积计算:这里使用了数学公式,半径平方乘以π(3.14)得到圆面积,4/3 * 半径的三次方乘以π得到球体积。`A 2`和`A 3`是VB中的乘法运算。 2. 数值比较:使用If语句进行数值比较,当X小于Y时,交换两数的值,确保大数总是在X中。 3. 判断奇偶性:通过取模运算(Mod)判断数字是否能被2整除,如果余数为0,则为偶数,否则为奇数。 4. 用户登录验证:检查账号和密码是否匹配,使用If...Then...ElseIf语句进行条件判断,展示不同的消息框。 5. 判断整数和奇偶性:首先检查输入中是否有小数点,没有则为整数,并进一步判断奇偶性。 6. 书店优惠售书:根据购买金额应用不同的折扣,使用Select Case语句进行分段处理。 7. 计程车收费程序:根据行驶里程计算费用,同样运用Select Case进行不同情况的计费。 8. 累加10个数:使用For循环输入10个数并累加,最后输出总和。 9. 累加偶数:与上题类似,但只累加偶数,通过If语句筛选偶数。 10. 求等差数列之和:这是高斯求和公式的一个应用,即1到100的和可以通过公式n*(n+1)/2计算,其中n为100。 以上是VB编程中的一些基础操作,它们在实际编程和解决实际问题中非常常见,特别是在初学者的学习过程中。熟练掌握这些知识点有助于提升编程技能和解决问题的能力。
资源推荐
资源详情
资源评论
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![7z](https://img-home.csdnimg.cn/images/20210720083312.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![xlsx](https://img-home.csdnimg.cn/images/20210720083732.png)
![](https://csdnimg.cn/release/download_crawler_static/82036703/bg1.jpg)
1 输入半径,求圆面积和球体积。
Private Sub Form_Load()
Dim r As Single, s As Single, v As Single
r = InputBox("请输入半径 r:","输入数据")
s = 3.14 * r
A
2
v = 4 / 3 * r A 3 * 3.14
'Print ”圆面积为:”;s
'Print "球体积为:”;v
MsgBox ("圆面积为:"& s & Space(2) & "球体积为:"& v)
End Sub
2 输入两个数存放在 x 和 y 中,比较大小,保证大数放在 x 中,小的数放在 Y 中。
Private Sub Command1_Click()
Print "比较前:"
X = InputBox("请输入 X")
丫 = InputBox("请输入 Y")
Print "X="; X, "Y="; Y
If X < Y Then
Z = Y
Y = X
X = Z
End If
Print "比较后:"
Print "X="; X, "Y="; Y
End Sub
3 判断一个整数的奇偶性
Private Sub Form_Click()
x = Val(InputBox("请输入一个数;"))
If x Mod 2 = 0 Then
MsgBox (x & " 是偶数")
Else
MsgBox (x & " 是奇数")
End If
End Sub
4 帐号和密码
Private Sub Command1_Click()
If Textl.Text = "12345" Then
If Text2.Text = "12345" Then
MsgBox "登录成功",64 + 1,"登录"
![](https://csdnimg.cn/release/download_crawler_static/82036703/bg2.jpg)
Else
MsgBox "密码错误,请重新输入”,16
End If
Else
MsgBox "用户不存在",16 + 1,"登录"
End If
End Sub
5 判断一个数是整数还是小数,如果是整数再判断其奇偶性
Private Sub Form_Click()
x = InputBox("请输入一个数;")
If InStr(1, x, ".") = 0 Then
If x Mod 2 = 0 Then
MsgBox (x & " 是整数,是偶数!”)
Else
MsgBox (x & " 是整数,是奇数!”)
End If
Else
MsgBox (x & " 是小数")
End If
End Sub
6 书店优惠售书
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
Select Case x
Case Is <= 100
y = x * 0.8
Case Is <= 200
y = x * 0.7
Case Is <= 300
y = x * 0.5
Case Else
y = x * 0.3
End Select
Label3.Caption = y & "元"
End Sub
7 设计一个计程车收费程序
Private Sub Command1_Click()
X = Val(Textl.Text)
Select Case X
Case Is <= 3
![](https://csdnimg.cn/release/download_crawler_static/82036703/bg3.jpg)
Label3.Caption = 6
Case Is <= 30
Label3.Caption = 6 + (X - 3) * 1.5
Case Else
Label3.Caption = 6 + 27 * 1.5 + (X - 30) * 2
End Select
End Sub
8 输入
10
个数,输出累加之和。
Private Sub Command1_Click()
Dim S As Single, i As Integer, x As Single
S = 0
Fori = 1 To 10
x = Val(InputBox("请输入第"& i & "个数")) Print "第"& i & "个数"& x
S = S + x
Next i
Print "十个数累加之和为"& S
End Sub
9 输入
10
个数,输出偶数之和。
Private Sub Command1_Click()
Dim S As Single, x As Single
Dim n As Integer, i As Integer
S = 0
Fori = 1 To 10
x = Val(InputBox("请输入第"& i & "个数")) Print "第"& i & "个数"& x
If x Mod 2 = 0 Then
S = S + Val(x)
End If
Next i
Print "十个数中偶数累加之和为 "& S
End Sub
10 求 S=1+2+3+ +100
Private Sub Command1_Click()
Dim I As Integer, S As Long
S = 0
For I = 1 To 100
S = S + I
Next I
Print Tab(10); "S="; S
End Sub
![](https://csdnimg.cn/release/download_crawler_static/82036703/bg4.jpg)
11 求 S=1+3+5+ +9 9
Private Sub Command1_Click() s = 0
For i = 1 To 100 Step 2
s = s + i
Next i
Print "s="; s
End Sub
12 S=1+22+32+ …… +102, 计算并输出 s
Private Sub Command1_Click() s = 0
Fori = 1 To 10
s = s + i
A
2
Next i
Picture1.Print "s="; s
End Sub
13 S=1+22+32+ …… +n2 . 问
n
为多少时 . s
的值大于
100000?
Private Sub Command1_Click()
s = 0
n = 0
Do While s <= 100000
n = n + 1
s = s + n A 2
Loop
Print
Print
Print
Print
Print
Print Tab(15); "n="; n
End Sub
14 1)S=1/2+1/4+1/6+1/8+1/10+ … +1/20 ,求 s 并输出 s 的值。
Private Sub Command1_Click()
Dim s As Single, i As Integer
s = 0
For i = 2 To 20 Step 2
s = s + 1 / i
Next i
Print "s="; s
![](https://csdnimg.cn/release/download_crawler_static/82036703/bg5.jpg)
End Sub
15 s=1x 2X 3X …… x 10
求
n! ,n 为[1〜10]之间的随机整数。
Private Sub Command1_Click()
Dim s As Long, i As Integer s = 1
Fori = 1 To 10
s = s * i
Next i
Print "10!="; s
End Sub
16 已知一数列的前两项均为 1, 从第
3
项开始,每一项的值为其前面两项之和 ,求数列的前 20
项的和。
Private Sub Command1_Click() Dim s As Integer, f1 As Integer Dim f2 As Integer, f3 As Integer s = 0
f1 = 1 f2 = 1 s = f1 + f2
For i = 3 To 20 f3 = f1 + f2 s = s + f3 f1 = f2 f2 = f3
Next i
Print "s="; s End Sub
17
S=2+3 + 5+
8
+……求其前 20 项和。
12 3 5
Private Sub Command1_Click()
Dim s As Single, fl As Integer, f2 As Integer
Dim f3 As Integer, i As Integer
s = 0
f1 = 1
f2 = 2
For i = 1 To 20
s = s + f2 / f1
f3 = f2
f2 = f1 + f2
f1 = f3
Next i
Print "s="; s
End Sub
18 S=1!+2!+3!+.…+10!
Private Sub Command1_Click()
Dim s As Long, s1 As Long, i As Integer, j As Integer s = 0
Fori = 1 To 10
s1 = 1
Forj = 1 To i
s1 = s1 * j
Next
剩余33页未读,继续阅读
资源评论
![avatar-default](https://csdnimg.cn/release/downloadcmsfe/public/img/lazyLogo2.1882d7f4.png)
![avatar](https://profile-avatar.csdnimg.cn/default.jpg!1)
feifei_2019
- 粉丝: 0
- 资源: 9万+
![benefits](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-1.c8e153b4.png)
下载权益
![privilege](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-2.ec46750a.png)
C知道特权
![article](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-3.fc5e5fb6.png)
VIP文章
![course-privilege](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-4.320a6894.png)
课程特权
![rights](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-icon.fe0226a8.png)
开通VIP
上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
我的下载
下载帮助
![voice](https://csdnimg.cn/release/downloadcmsfe/public/img/voice.245cc511.png)
![center-task](https://csdnimg.cn/release/downloadcmsfe/public/img/center-task.c2eda91a.png)
最新资源
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
![feedback](https://img-home.csdnimg.cn/images/20220527035711.png)
![feedback](https://img-home.csdnimg.cn/images/20220527035711.png)
![feedback-tip](https://img-home.csdnimg.cn/images/20220527035111.png)
安全验证
文档复制为VIP权益,开通VIP直接复制
![dialog-icon](https://csdnimg.cn/release/downloadcmsfe/public/img/green-success.6a4acb44.png)