Question

VB程序问题？

题目:程序要求实现如下功能:编写窗体的单击事件，产生8个[2,60]之间的随机整数(包括2和60)存入- -个- -维数组,中，完成以下功能:

1)在窗体上输出这8个数;

2)在窗体上输出最大值和最小值的乘积。

Private Sub Form Click()

Answer 1

Private Sub Form_Click()

  Dim a(8) As Integer

  Randomize

  Max = -1

  Min = 100

  For i = 1 To 6

    a(i) = Int(Rnd * 69) + 2

    Print a(i);

    If a(i) > Max Then Max = a(i)

    If a(i) < Min Then Min = a(i)

  Next i

  Print

  Print "Max * Min="; Max; "*"; Min; "="; Max * Min

  Print

End Sub

Answer 2

sum
=
sum
+
CInt(Textbox1.Text)
默认情况下不能运行吧~把上面那个改成Text1.Text就可以执行了~
输入1运行100次
输入2运行五十次
这个程序的作用是：文本框的数字加多少次能达到一百

Answer 3

输入1则提示运行了100次,输入2则提示运行了20次,

Answer 4

你的循环写的有问题，只要输入的值小于100的都会进行死循环，因为sum一直小于100，你得设置跳出循环体的陷阱。

Answer 5

输入1则提示运行了100次,输入2则提示运行了50次,
程序是判断文本框里的数字进行多少次相加达到一百！