Question

VB题目，请用VB语言回答谢谢

1.利用随机函数产生25个100到999之间的整数，构成5´5的矩阵，输出该矩阵
2.利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
3.在窗体上按上鼠标的右键，记录其的坐标。
4.
利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
5.
利用随机函数产生50个[1,6]之间的整数,分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
6.
在文本框中输入一些英语单词，统计空格的个数。
7.
编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。
S=1!+3!+5!+……+(2*n-1)!
8.
编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。
S=2!+4!+6!+……+(2*n)!
9.
用For …Next语句编程，双击窗体后，在屏幕上显示一个三角形
10.
用For …Next语句编程，双击窗体后，在屏幕上显示一个平行四边形
11.
从文本框输入一个正整数，判断该数是否为素数
12.
利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。

13，
当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。

14.
编制一个时钟程序，可显示当前时刻
15.从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。
16
计算圆面积的程序。程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。

17
编写一个时钟程序，当选择“24小时”时，以24小时的方式显示，当选择“12小时”时，以12小时的方式显示。
18.
设计一个程序，用户界面如图所示。程序运行后，用户在文本框中输入一段文字，然后按需要单击选择框，用以改变文本的字体、字型、颜色以及大小。

Answer 1

第一个。
Private Sub Form_Click()
Dim a(4, 4) As Integer
For i = 0 To 4
For j = 0 To 4
a(i, j) = Int(Rnd * 900) + 100
Print a(i, j);
Next j
Print
Next i
End Sub

第二个
Dim a(1 To 25) As Integer
Dim s As Integer
Private Sub Form_Click()
For i = 1 To 25
a(i) = Int(Rnd * 90) + 10
s = s + a(i)
Next i
ave = s / 25
Print "平均值为"; Round(ave, 4)

End Sub

追问

继续啊亲！fighting啊亲！

追答

第二个改一下
Dim a(1 To 25) As Integer
Dim s As Integer
Private Sub Form_Click()
For i = 1 To 25
a(i) = Int(Rnd * 90) + 10
s = s + a(i)
Next i
ave = s / 25
Print "平均值为"; Format(ave, ".000")
End Sub

追问

万分感谢，能帮我继续做吗

Answer 2

1.Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a(5, 5) As Integer, i As Integer, j As Integer
Randomize
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 900) + 100
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub

追问

加油。。还有下面的。。。

Answer 3

重医的？ = =

追问

你猜- -

追答

复印店整份答案呐

Answer 4

同求啊！！有答案后求分享！！！