Private sub Command1_click() Randomize n=Cint(Text1.Text) n1=0 n2=0 For i=1 to ____ r=Int(Rnd*2) if r=____ Then n1=n1+1 Else n2=n2+1 End If Next Text2.Text = n1 Text3.Text = n2 End Sub
输入答案，中间不含空格:
7.上一题
输入答案，中间不含空格:
8. 阅读程序： Opention Base 1 Private Sub Form_Click() Dim a(3) As Integer Print "输入的数据是："; For i=1 To 3 a(i) = InputBox("输入数据") Print a(i); Next Print If a(1) < a(2) Then t = a(1) a(1) = a(2) a(2) = ____ End If If a(2)>a(3) Then m = a(2) ElseIf a(1) > a(3) Then m=____ Else m=____ End If Print "中间数是";m END SUB 程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示，请填空。
收藏本文到QQ书签
搜藏本文到百度搜藏
收藏
推荐
评论(0条)