- 1、本文档共20页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
卓帆单机版vb操作题
选修VB操作题
1.实现功能:在Text1中输入一个代表秒数的整数后,单击计算按钮后,在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入3672,Label1、Label2、Label3中分别显示1、1、12,即1小时1分12秒。
Private Sub Command1_Click()
Dim h, m, s, ss As Integer
ss = Val(①) Text1.text
h = ② ss\3600
m = (ss - h * 3600) \ 60
s = (ss - h * 3600) Mod ③ 60
Label1.Caption = CStr(h)
Label2.Caption = CStr(m)
Label3.Caption = CStr(s)
End Sub
2.实现功能:用递归法求斐波那契数列1,1,2,3,5,8,…第10项的值。
Public Function Fib(n As Integer) As Integer
If (n = 1) Or (n = 2) Then
Fib = ① 1
Else
Fib = Fib(n - 1) + Fib(n - 2)
② End if
End Function
Private Sub Command1_Click()
Dim S As Integer
S = Fib(③) 10
Print S= CStr(S)
End Sub
3.填空完成程序,使得单击显示按钮后,随机产生10个属于区间[0,100)的自然数,
并保存于数组a中,然后在窗体上显示这10个数中的最大值。
(注:学生运算结果有可能跟样图中数值不一致。)
Private Sub Command1_Click()
Dim a(9) As Integer
Dim max As Integer
Dim i As Integer
Me.Cls
Print
Randomize
For i = 0 To ① Step 1 9
a(i) = Int(Rnd * 100)
Print a(i)
Next i
max = a(0)
For i = 1 To 9
If max a(i) Then
max = ② a(i)
End If
Next i
Print 这10个自然数中的最大值=; CStr(③) max
End Sub
4.举重比赛中,60公斤级选手体重不能超过60公斤。
填空完成程序,使得在文本Text1中输入一个大于60的数时,标签Label1显示超重!不能参赛!;
当输入一个小于等于60的数时,标签Label1显示合格,可以参赛!。
Private Sub Command1_Click()
Dim t As Single 定义变量t,值由文本框Text1读入
t = Val(①) 答案→ Text1.text
If ② Then 答案→ t60
Label1.Caption = 超重!不能参赛!
Else
Label1.Caption = 合格,可以参赛!
③ 答案→ End if
End Sub
5.实现功能:用穷举法找出所有的水仙花数的程序并保存。
水仙花数是指一类三位数,其各个数位上的数字之立方和为该数。例如:153=13+53+33。
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, c As Integer
For i = 100 To 999
a = i \ ① 答案→ 100
b = (i - a * ②) \ 10 答案→ 100
c = i Mod 10
If a
您可能关注的文档
- 04_MySQL安装.doc
- 高中数学《2-1-3-2-1-4直线与平面、平面与平面的位置关系》课件新人教A版必修.ppt
- 487kj_数学新人教A版选修4-4 1.3.2《直线的极坐标方程》课件ppt.ppt
- Iptables参考手册.doc
- 《网络安全》实验指导书 — Linux系统iptables防火墙.doc
- iptables透明桥防火墙.doc
- 【高中数学必修4学习课件】——人教A版3-2简单的三角恒等变换.ppt
- iptables规则链详细介绍.doc
- CentOS上最小化安装Oracle 10gR2.docx
- 【数学】1.2.2《组合(四)》课件(新人教A版选修2-3).ppt
- 新疆阿克苏地区(新版)2024小学语文统编版小升初核心能力评测(自测卷)完整试卷(含答案).docx
- 内蒙古阿拉善盟(新版)2024小学语文人教版小升初真题(综合卷)完整试卷(含答案).docx
- 浙江省丽水市(新版)2024小学语文统编版小升初质量检测(评估卷)完整试卷(含答案).docx
- 湖北省荆门市(新版)2024小学语文苏教版小升初考试(评估卷)完整试卷(含答案).docx
- 江苏省南通市(新版)2024小学语文统编版(五四制)小升初核心能力评测(强化卷)完整试卷(含答案).docx
- 广东省深圳市(新版)2024小学语文统编版(五四制)小升初质量检测(评估卷)完整试卷(含答案).docx
- 湖南省怀化市(新版)2024小学语文部编版小升初考试(提分卷)完整试卷(含答案).docx
- 吉林省延边朝鲜族自治州(新版)2024小学语文部编版小升初质量检测(自测卷)完整试卷(含答案).docx
- 山西省忻州市(新版)2024小学语文统编版小升初考试(评估卷)完整试卷(含答案).docx
- 福建省漳州市(新版)2024小学语文统编版小升初模拟(强化卷)完整试卷(含答案).docx
文档评论(0)