VB练习题
编程题
2．新建一个窗体，程序运行时，当用鼠标单击窗体任一地方时，程序用随机函数产生50个随机数，然后程序把刚才产生的50个整数分5行在在窗体上显示，每行10个整数。
3. 一维数组的基本操作，设有一维数组A（1 to 10）, 将数组元素倒置。
例如；输入2、4、6、8、10、1、3、5、7、9
输出 9、7、5、3、1、10、8、6、4、2
1. 设计一个窗体，当在窗体上双击鼠标时，能将窗体最大化，且窗体背景颜色设为蓝色。
2. 设计一个窗体，输入一个3位整数，将它反向输出。例如输入123，输出为321。
3. 从键盘输入任意一个实数，用Print方法在窗体上同一行显示其平方和平方根，要求每个数保留3位小数。
第2题：
Private Sub Form_Click()
Dim i As Integer
Dim b As Integer
Dim a(10) As Integer
For b = 1 To 5
For i = 1 To 10
a(i) = Int(Rnd * 100)
Next i
Print a(1), a(2), a(3), a(4), a(5), a(6), a(7), a(8), a(9), a(10)
Next b
End Sub
第3题：
先添加一个按钮。然后输入如下代码：
Private Sub Command1_Click()
Dim b As Integer
Dim a(10) As Integer
Print "输入";
For b = 1 To 10
a(b) = Int(9 * Rnd) + 1
Print a(b);
Next b
Print ""
Print "输出";
For b = 1 To 10
Print a(11 - b);
Next b
End Sub
Private Sub Form_Click()
Dim i As Integer
Dim b As Integer
Dim a(10) As Integer
For b = 1 To 5
For i = 1 To 10
a(i) = Int(Rnd * 100)
Next i
Print a(1), a(2), a(3), a(4), a(5), a(6), a(7), a(8), a(9), a(10)
Next b
End Sub
第3题：
先添加一个按钮。然后输入如下代码：
Private Sub Command1_Click()
Dim b As Integer
Dim a(10) As Integer
Print "输入";
For b = 1 To 10
a(b) = Int(9 * Rnd) + 1
Print a(b);
Next b
Print ""
Print "输出";
For b = 1 To 10
Print a(11 - b);
Next b
End Sub
温馨提示：内容为网友见解，仅供参考
无其他回答
相似回答
