原创力文档- 1、本文档共5页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VB上机考试复习题1
编写单击“计算”按钮事件过程，随机产生10个50—100的整数，将其用冒泡排序法按升序排列后显示于窗体。
Dim A(1 To 10) As Integer
Randomize
For i = 1 To 10
A(i) = Int(Rnd * 51 + 50)
Label1.Caption = Label1.Caption A(i)
Next i
For i = 1 To 9
For j = 1 To 10-i
If A(j) A(j + 1) Then
t = A(j)
A(j) = A(j + 1)
A(j + 1) = t
End If
Next j
Next i
For i = 1 To 10
Label2.Caption = Label2.Caption A(i)
编写单击“计算”按钮事件过程，随机产生10个10—100的整数，将其用选择排序法按降序排列后显示于窗体。
Dim a(1 to 10) ,t as integer
For i=1 to 10
A(i)=int(rnd*91+10)
Print ;” ”;a(i)
Next i
For i=1 to 9
Imin=i
For j=i+1 to 10
If a(j) a(imin) then imin=j
Next j
T=a(i)
A(i)=a(imin)
A(imin)=t
Next i
For i=1 to 10
Print ”排序后的数为”
Print ;” ” a(i)
Next i
在“转换”按钮单击事件过程中编程实现：将Text1中的字符，按大写字母转换成小写字母，小写转换为大写，其他字符不转换。转换后的结果显示在文本框Text2中。如：About What54654转换的结果为aBOUT wHAT54654
Dim i%, t%
t = Len(Text1)
For i = 1 To t
c = Mid(Text1.Text, i, 1)
Select Case c
Case a To z
c = UCase(c)
Case A To Z
c = LCase(c)
End Select
Text2 = Text2 c
Next i
当单击按钮时，调用Inputbox函数输入6个数，求这6个数的平均值和最小、最大值。
Dim i%,min!max!,average!,s!
Dim a(1 to 6)
For i=1 to 6
A(i)=inputbox(“输入数组元素”,a(i))
Print ;“ ”;a(i);
Max=x
If a(i)x then max=a(i)
Next i
For i=1 to 6
Min=a(1)
If a(i)min then min=a(i)
S=s+a(i)
Average=s/6
Next i
Print ;“最大值为”;max
Print ;”最小值为”;min
Print ;”平均值为”;average
求表达式1!+3!+5!+7！+……的前n项之和。N的值通过调用Inputbox函数输入。
Dim s#,i%,n%,t#
T=1
Cls
N=inputbox(“输入项数N”，n)
For i=1 to 2*n-1
T=t*i
If I mod 2 =1 then s=s+t
Print “1!+3!+5!+7!+……+(2*n-1)!”;s
Next i
求表达式1+1/（1+2）+1/（2+3）+1/（3+4）+……前n项之和。
Dim n%, i%, t#, s#
Cls
n = InputBox(输入项数N)
For i = 1 To n
t = 1 / (2 * i - 1)
s = s + t
Next i
Print 表达式1+1/(1+2)+1/(2+3)+……的前; n; 项和为：; s
生成20个20~3000之间的随机数，按每行5个输出这20个数据，再下行输出其中除5余2并被3整除的数，并求出它们的和。
Dim a(1 To 20), i%, s!,t%
Randomize
Cls
For i = 1 To 20
T=1+t
If t Mod 5 = 0 Then Print
a(i) = Int(Rnd * 2981 + 20)
Print ; a(i); ;
Next i
Print
Print 符合条件的数有：;
For i = 1 To 20
If a(i) Mod 5 = 2 And a(i) Mod 3 = 0 Then
s = s + a
文档评论（0）