修改时间:2021-05-20 浏览次数:119 类型:月考试卷
Dim s1 As String, s2 As String
s1 = "what doesn't kill you makes you stronger."
s2 = text1.text
i = 1: j = 1
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) = Mid(s2, j, 1) Then j = j + 1
i = i + 1
Loop
If j > Len(s2) Then
s3 = "true"
Else
s3 = "false"
EndIf
执行该程序段后,s3的值为“false”,则text1输入的文本可能是( )
图a
请回答以下问题:
(提示:票房占比=单部电影总票房/一周总票房*100)
图b
Dim goods(1 To 11) As String ‘商品名,共11种
Dim num(1 To 11) As Integer ‘库存数
Dim prize(1 To 11) As Integer ‘商品单价
Dim sale(1 To 160) As String ‘共80个销售单号
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t2 As Integer
Dim total As Integer,s as string, t1 As String
total = 0
For i = 1 To 80
For j = 1 To 11
If Then Exit For
Next j
If ① Then
num(j) = num(j) - Val(sale(i * 2))
total = total + Val(sale(i * 2)) * prize(j)
For k = 1 To 10
If ② Then
t1 = goods(k): goods(k) = goods(k + 1): goods(k + 1) = t1
t2 = num(k): num(k) = num(k + 1): num(k + 1) = t2
t2 = prize(k): prize(k) = prize(k+1): prize(k+1) = t2
End If
Next k
Else
List1.AddItem Str(i) + "号单库存不足"
End If
Next i
‘在列表框list1输出各商品剩余库存,代码略
List1.AddItem "总销售额" + ③ + "元"
End Sub
Private Sub Form_Load()
‘读入数据,存在各个数组,代码略
End Sub
① ② ③
1)每组不超过8人
2)组内新增人员的喜好值必须与现有组内人员的平均喜好值相差在5以内
3)若新增人员无法加入现有小组,则被分入新组建小组
小V同学根据上述算法设计编写了VB程序,界面如图所示,单击“分组”按钮后,在列表框list1输出分组结果,每组一行,回答下列问题:
Dim a(1 To 60) As Integer ‘各人的喜好值
Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer,s as String
Dim b(1 To 480) As Integer ‘分组后喜好值
Dim ave(1 To 60) As Integer, num(1 To 60) As Integer
For i = 1 To 60 ‘预设60个分组
num(i) = 1
ave(i) = 0
Next i
c = 1: ave(1) = a(1): b(1) = a(1)
For i = 2 To 60
For j = 1 To c
If Abs(a(i) - ave(j)) <= 5 And num(j) < 8 Then
ave(j) = ①
num(j) = num(j) + 1
b(j * 8 - 8 + num(j)) = a(i)
Exit For
End If
Next j
If ② Then
b(c * 8 + 1) = a(i)
ave(j) = a(i)
c = c + 1
End If
Next i
s = ""
For i = 1 To c
For j = 1 To ③
s = s + Str(b((i - 1) * 8 + j))
Next j
List1.AddItem s
s = ""
Next i
End Sub
Private Sub Form_Load()
‘生成60个原始数据,存入数组a,数组b各元素初始化为0,代码略
End Sub
① ② ③
试题篮