内容发布更新时间 : 2024/12/22 15:14:38星期一 下面是文章的全部内容请认真阅读。

数本身)

Private Sub Form_Click()

Print \之间所有的水仙花数为：\ Dim x%, a%, b%, c% For x = 100 To 500 a = x Mod 10

b = (x Mod 100) \\ 10 c = x \\ 100

If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x Next x End Sub

3、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序 Private Sub Form_Click()

Dim a(5) As String, b(4) As Integer, t%, max%, imax% For i = 1 To 5

a(i) = InputBox(\ Next i

For i = 0 To 4

b(i) = Len(Trim(a(i))) Next i max = 1 For i = 0 To 4

If max

Print \ Print \End Sub

4、输入一系列字符串，将字符串按递减次序排列。请编程实现 Dim a() As String, n%, i%, j% Private Sub Command1_Click() n = Val(Text1)

ReDima(n) As String

For i = LBound(a) To UBound(a)

a(i) = InputBox(\请输入字符串\Picture1.Print a(i); Spc(1); Next i End Sub

Private Sub Command2_Click() For i = 0 To n For j = 0 To n - 1

If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j

Next i

For i = 0 To n

Picture2.Print Tab(3); a(i); Spc(1) Next i End Sub

5．随机产生30~100（包括30、100）中的十个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果。 Private Sub Form_Click()

Dim a(1 To 10) As Integer, i%, maxa%, mina%, avera! For i = 1 To 10

a(i) = Int(Rnd * 71 + 30) Next i

mina = a(1) maxa = a(1) avera = a(1) For i = 2 To 10

If a(i) >maxa Then maxa = a(i) If a(i) < mina Then mina = a(i) avera = avera + a(i) Next i

For i = 1 To 10 Print a(i); Next i Print

Print \End Sub 6、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相乘得到的。请编程生成并输出A,B,C。 Private Sub Form_Click()

Dim a%(1 To 4, 1 To 4), b%(1 To 4, 1 To 4), c%(1 To 4, 1 To 4) Print \数组A\ For i = 1 To 4 For j = 1 To 4

a(i, j) = Int(Rnd * 20 + 1) Print Tab(j * 4); a(i, j); Next j Print Next i

Print \数组B\ For i = 1 To 4 For j = 1 To 4

b(i, j) = Int(Rnd * 100 + 100)

Print Tab(j * 6); b(i, j); Next j Print Next i

'Print \数组C\ 'For i = 1 To 4 'For j = 1 To 4 'c(i, j) = b(i, j) * a(i, j) 'Print Tab(j * 4); c(i, j); 'Next j 'Print 'Next i

Print \数组C\ For i = 1 To 4 For j = 1 To 4 c(i, j) = b(i, j) * a(i, j) Print Tab(j * 6); c(i, j); Next j Print Next i End Sub

7、随机产生15个小写字母，放在字符串中。（提示：c=chr(int(rnd*26+97))） Private Sub Form_Click() Dim a$(1 To 15), i%

Print \字符数组为a(i):\ For i = 1 To 15

a(i) = Chr(Int(Rnd * 26 + 97)) Print a(i); Spc(1); Next i Print End Sub

Private Sub Form_Load() FontSize = \End Sub 8、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,求它的两条对角线上元素之和。

Private Sub Command1_Click() Dim a%(3, 3), i%, j%, sum% For i = 0 To 3 For j = 0 To 3

a(i, j) = Int(Rnd * 31 + 20) Picture1.Print a(i, j); \

Next j

Picture1.Print Next i sum = 0 For i = 0 To 3

sum = sum + a(i, i) + a(i, 3 - i) Next i

Text1 = sum End Sub

9、有10个评委对歌手进行打分（分数存放在A数组中）要求编程计算歌手平均得分（按去掉一个最高分和一个最低分的计算办法计算）。 Private Sub Form_Click()

Dim a(), max%, min%, imax%, imin%, s!

a = Array(98, 97, 95, 91, 90, 99, 93, 94, 93, 96) n = UBound(a) For i = 0 To n Print a(i); Next i Print

min = a(0): imin = 0 For i = 0 To n

If a(i) < min Then min = a(i): imin = i Next i

Print \ For i = imin + 1 To n a(i - 1) = a(i) Next i

ReDim Preserve a(n - 1) For i = 0 To n - 1 Print a(i); Next i Print

For i = 0 To n - 1

If a(i) > max Then max = a(i): imax = i Next i

Print \ReDim Preserve a(n - 2) s = 0

For i = 0 To n - 2 s = s + a(i) Print a(i); Next i Print

Print \End Sub

10、随机产生15个大写字母，放在字符数组中。提示：c=chr(int(rnd*26+65)) Private Sub Form_Click() Dim a(1 To 15) As String For i = 1 To 15

a(i) = Chr(Int(Rnd * 26 + 65)) Print Tab(i * 2); a(i); Next i End Sub

11.编程输出n行杨辉三角形图，n由键盘输入。 Private Sub Command1_Click() Dim n%, i%, j% n = Val(Text1)

Dim a%(1 To 1000, 1 To 1000) For i = 1 To n a(i, 1) = 1 Next i

For i = 1 To n a(i, i) = 1 Next i

For j = 2 Toi - 1 For i = 3 To n

a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next i

Picture1.Print ; Next j

Picture1.Print Tab(j * n); a(i, j) For i = 1 To n For j = 1 Toi

Picture1.Print a(i, j); \Next j

Picture1.Print Next i End Sub

12、编写一个判断素数的通用过程（函数或子程序）。调用该过程，计算并输出区间[1000，1100]内所有素数的和。(提示：只能被1和自身整除的自然数称为素数。) Private Sub Picture1_Click() Dim i%, avera avera = 0

For i = 1000 To 1100