⑴参照B6、G2单元格的计算方法完成“按部门总计”和“按品名汇总”;
⑵把第一行标题栏的行高设为20;
⑶用数据自动筛选的方法筛选出按“部门总计”高于800的记录;
⑷将操作结果以原文件名存盘退出。
Const n=10
Dim a(1 To n)As Integer
‘Text1_KeyPress过程用于输入数据并将数据依次存放到数组a中
Private Sub Text1_KeyPress(KeyAscii As Integer)
‘该过程代码略
End Sub
Private Sub Command1_Click( )
Dim i,k,max As Integer
max=1
k=1
For i=2 To n
If
Then k=k+1 Else k=1 ‘⑴
If k>max Then
‘⑵
Next i
Text2.Text=Str(max)
End Sub
以上程序段运行时,为了实现上述功能,加框处的代码应改正为:⑴;⑵。



请在下列程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。

Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Function f(x) As Boolean
f = True
For i = 2 To Sqr(x)
If x Mod i = 0 Then
Next i
End Function
Private Sub Command1 Click()
n =
For a1 = 2 To n
For a2 = a1 To n
For a3 = a2 To n
If And f(a1) And f(a2) And f(a3) Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub
杭州市民卡是一张集成电路卡,具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的,卡内会记录每位市民的姓名、住址、金额等信息。
假设共有100000个市民,市民的卡号、姓名和金额分别存放在数组a、b和数组c中,a(i)是存放第i个市民的卡号,则对应的第i个市民的姓名存放在b(i)中,金额存放在c(i)中。
通过卡号查询其姓名和余额的程序界面如图所示。在文本框Text1中输入卡号,单击“开始查询”按钮,如果找到,就在Label1中显示卡内市民姓名和金额;否则显示“查无此人”。已知卡号按照从小到大排序。请按要求将下列程序补充完整。

Dim a (1 To 100000) As long
Dim b (1 To 100000) As string
Dim c (1 To 100000) As long
Private Sub Command1_Click()
Dim x As Long, i As Long, j As Long, m As Long, f As Boolean
x = Val(Text1.Text)
i = 1: j = 100000: f = False 、
Do While i<=j and f=false
①
If x= a(m) Then
f = True
ElseIf x< a(m) Then
j = m - 1
Else
②
End If
Loop
If f=false Then
Label1.Caption =”查无此人”
Else
Label1.Caption = b(i)+ "卡内余额为"+ Str(c(i)) + "元"
End If
End Sub
Private Sub Form_Load()
’ 此过程用于对数组a、b和c进行初始赋值,代码略
End Sub

下列说法不正确的是( )
def f(a,b):
result=a*b
s=a+b
return result
a=int(input("a="))
b=10
s=f(a,b)
print(s)
确定;建立迭代;对迭代过程进行,这是编写迭代程序必须考虑的问题,不能让迭代过程无休止地重复执行下去。