下列说法不正确的是( )
1)输入单次消费金额money ;
2)如果消费总额total>10元,并且单次消费money>10元,则输出“您本周消费已达上限,单次消费不能超过10元”,然后重新输入 单次消费金额money;
3)将单次消费金额累加到消费总额total。
根据以上算法分析,补全以下程序代码:
请补全程序:
编写VB程序,统计接送n个参会者所需的最少车辆数。运行程序,列表框List1中显示所有参会者提交的信息,按到达时间先后排列。单击“统计”按钮Command1,在文本框Text1 中显示所需的最少车辆数。程序运行界面如图所示。
Dim n As Integer
Dim a(1 To 100) As String
Dim b(1 To 100) As Integer
Dim c(1 To 100) As Integer
Dim fg(1 To 100) As Boolean
Private Sub Form_Load()
'读取n个参会者提交的信息,依次存入a(1)~a(n)
'将a(1)~a (n)按参会者到达时间排序,并在List1中显示,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As String
Dim sum As Integer, q As Integer
For i=1 To n
b(i) = T(Mid(a(i), 1, 5))
c(i) = b(i) + Int Mid(a(i), 7, 1))
For j=1 To 2 Step-1
k=
If c(k) > c(j) Then
q=b(k):b(k)=b(j):b(j)=q
q=c(k):c(k)=c(j):c(j)=q
Else
Exit For
End If
Next j
Next i
sum=0
For i=1 To n
If fg(i) = False Then
For j=1 To n
If Then
fg(j) = True
End If
Next j
End If
Next i
Text1.Text = str (sum)
End Sub
Function T(str1 As String) As Integer
T = Int(Mid(str1,1, 2)) * 60 + Int(Mid(str1, 4, 2))
End Function
下列关于“Move”图层的补间动画,描述正确的是( )
执行该流程图后,输出i,k的值分别是( )
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim a As Integer, b As Integer
Randomize
n = Val(Text1.Text)
i = ①
Do While i<= n
a = Int(Rnd * 100)
b = Int(Rnd * 100)
If ② Then
List1.AddItem "(" + Str(i) + ")" + Str(a) + "+" + Str(b) + "="
i = i + 1
End If
Loop
End Sub
① ②
下列说法正确的是( )
图a
图b
图c
图d