阅读程序在画线处填空。程序功能单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间那个整数， Option Base 1 Private Sub Form_Click() Print "输入的数据是："; For i=1 To 3 a(i)=InputBox("输入数据") Print a(i); Next Print If a(1)a(3) Then m=a(2) ElseIf a(1)>a(3) Then m=__ _ _____ Else m=__ ____ __ End If Print "中间数是：";m End Sub

公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！

2021-04-14

阅读程序在画线处填空。程序功能单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间那个整数， Option Base 1 Private Sub Form_Click() Print "输入的数据是："; For i=1 To 3 a(i)=InputBox("输入数据") Print a(i); Next Print If a(1)a(3) Then m=a(2) ElseIf a(1)>a(3) Then m=__ _ _ Else m= End If Print "中间数是：";m End Sub

答案：

第一空： Dim a(3) As Integer 第二空： t 第三空： a(3) 第四空： a(1)

举一反三

内容

0
中国大学MOOC: 在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() x = InputBox(Input) Select Case x Case 1, 3 Print 分支 1 Case Is > 4 Print 分支 2 Case Else Print Else 分支 End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）。
1
依次输入三个整数放在一个列表中，请把这三个数由小到大输出。m=[]for i in range(3):x=int(input("x="))_____________________m.sort ()for i in m:print(i,end="" )
2
阅读程序： Option Base 1 Sub P(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Form_Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击窗体，输出结果为 A: 2 4 6 8 B: 5 6 7 8 C: 10 12 14 16 D: 4 8 12 16
3
单击窗体，在窗体上打印数列：2/1 ，3/2 ，5/3 ，8/5 ，13/8 … 的前10项，并求其和，将和保存在变量s中。 Private Sub Form_Click() Dim i%, j%, k%, m As Integer Dim s As Single s = 0 i = 2 'i为分子 j = 1 'j为分母 For k = 1 To 10 s = 【1】 Print i & "/" & j m = j j = i i = 【2】 Next Print s End Sub
4
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim a(5,5) For i=1 To 3 Forj=1 To 4 a(i,j))=i*j Next Next For n=1 To 2 For m=1 To 3 Print a(m,n); Next Next End Sub 程序运行后，单击命令按钮，输出结果是( )。 A: A) 246123 B: B) 123246 C: C) 123456 D: D) 654321