有哪些信誉好的足球投注网站- 1、本文档共10页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
全国计算机考试组
数 组 完 善 程 序 填 空 参 考
1.编写一个程序，随机产生10个两位正整 数，并从中找出一个最大数和一个最小数。
Option Base 1
Private Sub Form_Click()
Dim compare(12) As Integer, i As Integer
Dim max As Integer, min As Integer
FontSize = 30
Randomize
For i = 1 To 10
compare(i) =________________ 10--99
Print compare(i);
Next i
Print
max = compare(1): min = compare(1)
For i = 2 To 10
？
max = compare(i)
?
min = ?
End If
Next i
Print 最大数是：; max
Print 最小数是：; min
End Sub
2. 产生20个0~1000的随机整数，放入一个数组中，然后输出这20个整数的平均值。
Private Sub Command1_Click()
Dim a(1 To 20) As Integer, i As Integer, sum As Integer, count As Integer, p As Integer
Randomize
For i = 1 To 20
a(i) = Int(1001 * Rnd)
Print a(i);
count = count + 1
If count Mod 5 = 0 Then Print
？
Next
?
Print 20个整数的平均值: p
End Sub
3. 随机生成包含10个元素（全为两位正整数）的数组，要求交换对称位置的元素，并输出交换前后的各元素值。
Option Explicit
Private Sub Command1_Click()
Dim a(10) As Integer, i As Integer, t As Integer
输入即给各元素赋初值
For i = 1 To 10
a(i) = Int(90 * Rnd) + 10
Print a(i);
Next
Print
处理即完成交换对称位置的元素
?
?
?
?
Next
输出交换后的各元素值
For i = 1 To 10
Print a(i);
Next
End Sub
4. 输出Fibonacci数列的前20项，要求4项一行输出，请使用数组完成，即数组各元素取得各项值，以4个一行的形式输出数组中各元素值。
Option Base 1
Private Sub Command1_Click()
Dim f(20) As Long, i As Integer, count As Integer
f(1) = 1: f(2) = 1
For i = 3 To 20
?
Next
For i = 1 To 20
Print f(i);
count = ?
If ? Then Print
Next
End Sub
5. 随机生成包含有n个两位正整数元素的整型数组，由键盘输入一整数，删除数组中以该整数为下标的元素。
Option Base 1
Private Sub Command1_Click()
Dim a() As Integer, i As Integer, k As Integer, n As Integer
n = InputBox(请输入数组中包含元素的个数：)
?
For i = 1 To n
a(i) = Int(Rnd * 90+10)
Print a(i);
Next
k = InputBox(请输入1~10之间的整数：)
?
?
Next
Print
?
For i = 1 To n - 1
Print a(i);
Next
End Sub
6. 从键盘输入一个正整数，找出该数以内的所有素数存放在数组prime中，并将所有找到的素数按每行5个的形式输出到文本框中。
Option Base 1
Private Sub Command1_Click()
Dim m As Integer, n As Integer, i As Integer, p
文档评论（0）