采用倒推算法,其中设定M的初始值为1(第四天吃完后剩下的桃子数),D为天数(初始值为5)请在下面的①和②(对应流程图中相应空缺位置)填入相应选项。①、②分别为( )
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, z As Integer
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)
d = max(a, b)
z = max(d, c)
Text4.Text = Str(d)
Text5.Text = Str(z)
End Sub
Function max(x As Integer, y As Integer) As Integer
If x > y Then max = x Else max = y
End Function
运行该程序,在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后,单击命令按钮Command1,文本框Text5中显示的是( )
程序界面如图所示,左边列表框List1中显示同学的编号和姓名,单击"抽奖"按钮(Command1),在标签Label3中显示抽中的编号,同时在标签Label4中显示"恭喜***同学",其中具体同学的姓名从数组b中获取。
解决此问题的程序段如下,请在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:
Dim a(1 To 50) As Integer
Dim b(1 To 50) As String
Function search(m As Integer) As Integer
search = 0
For i = 1 To 50
If m = a(i) Then
search = a(i)
End If
Next i
End Function
Private Sub Command1_Click()
Dim c As Integer,t as integer
Randomize
{#blank#}1{#/blank#}
Label3.Caption = Str(c)
t = search(c)
If t <> 0 Then
Label4.Caption = "恭喜" + {#blank#}2{#/blank#} + "同学"
End If
End Sub
Private Sub Form_Load()
' 此过程用于对数组a和数组b进行初始赋值,代码略
End Sub