原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB程序题目
程序改错
1 题目：求s=2！+4！+6！+8！，阶乘的计算用Function过程fact实现。
程序代码：
Private Sub Form_Click()
Dim i as integer, s as long
For i = 2 to 8 ??????????????????????????????????→ For i = 2 to 8 step 2
? s = s + fact(i)
Next i
Print s
End Sub
Public Function fact( )??????????????? ?→ Public Function fact(Byval n%)
Dim t as long
Dim i as integer
t = 1
For i = 1 to n
? t = t * i
Next i
Fact = i ????????????????????????????????????????????????→ Fact = t
End function
?
2 题目：请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）在300元以上者，按八折优惠；（4）在500元以上者，按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。
程序代码：
Private Sub Command1_Click ()
Dim x As Integer, y As Single
x = Val(Text1.Text)
If? x 100 then
? x = y ???????????????????????????????????????????????????→ y=x
Else
? If? x 200 then
y = 0.95 * x
? Else
??? If? x 300 then
y = 0.9 * x
??? Else
????? If? x 300 then
y = 0.8 * x
Else
? y = 0.7 * x
Else If ??????????????????????????????????????????→? End If
End If
End If
End If
Text2.text = x ??????????????????????????????????????→ Text2.text = y
End Sub
程序填空
1 题目：由输入对话框输入n（n必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框label1上显示。Sum=1/2+1/6+……+1/(k*(k+1))? (k=n)
Private sub form_click()
Dim n as integer, sum as double, k as integer
N = val(inputbox(“n=”,”请输入自然数n（n0且n30）”))
Do while n=0?orn30 ?????????????????????????????
?N = val(inputbox(“n=”,”请重新输入”))
Loop
Sum = 0
K = 0
Do
K=?k+1
Sum = sum + 1/(k * (k+1))
Loop until????????????????????????????????????? (k+1) n
Label1.caption = “sum” + str(sum)
End sub
?
2 题目：下面的程序用于打印出以下图形。
程序代码：
Private sub form_click()
Dim i%, j%, k%
For I = 3 to 0 step -1
? For j = 0 to 2 * i
Print “ ”;
? Next j
? For k = 5 to 11-2*i
Print “*” ;
? Next k
print
Next i
For I = 0 to 3
? For j = 0 to 2 * I + 2
print “ ”;
? Next j
? For k = 0 to 4-2 * i
Print “*” ;
? Next i
print
Next i
End sub
程序设计
1 题目：求二维数组中最大元素及其所在的行和列，并将最大值存入变量Max中，将最大值的行位置存入row中，列位置存入变量column中
程序代码：
Private Sub Form_load()
Show
Dim a(2,3) As Integer
Dim max
文档评论（0）