水果编号
水果名称
单位
单价
入库数量
入库日期
审核
A001.
红富士苹果
箱
¥75.00
50
2021/12/21
已审核
A002
阿克苏苹果
¥80.00
100
2021/12/26
未审核
A001
2021/12/23
……
下列关于“水果进货”数据表的描述,正确的是( )
下列说法正确的是( )
Key = Val(Text1.Text)
i= l:j= Key
Do While i<= j
m=(i+j)\2 '①
If Key=m*m Then Exit Do 'Exit Do表示退出循环
If Key>m* m Then i=m+ 1 Else j=m- 1
Loop
If i> j Then
Label1.Caption= Key & "不是完全平方数"
Else
Label1.Caption= Key & "是完全平方数"
End If
运行该程序段,在文本框Text1中输入15,运行后①处语句的执行次数是( )
Dim a(0 To 10) As String
s= Text1.Text
a(0)= "": a(1)= Mid(s, 1, 1):t= 1
For i= 2 To Len(s)
If t>= 1 And Mid(s, i, 1)= a(t) Then
t=t- 1
t=t+ 1: a(t)= Mid(s, i, 1)
Next i
运行程序段,在文本框Text1中输入以下字符串,运行后变量t的值与其它三项不同的是( )
c= a(1): cnt= 0
For i= 1 To
If Then c= a(i)
If Then cnt= cnt+ 1 Else cnt= cnt- 1
Text1.Text= "出现次数过半的值是: " &c
上述程序段3个方框处的代码分别为( )
请回答下列问题:
编写VB程序,实现上述功能。运行程序,在列表框List1中显示n个英文单词(单词仅由小写字母组成且字母个数至少为1),单击“统计”按钮Command1,在列表框List2升序显示全部单词的按键组合,在文本框Text1中显示最频繁使用的按键组合,若有多个,则全部输出。程序运行界面如图b所示。
编写VB程序,实现上述功能。运行程序,在列表框List1中显示全部图书编号。单击“整理”按钮Command1,在标签Label1中显示待调整区间图书的册数,在文本框Text1中显示待调整区间图书的起止编号,并在列表框List2中显示排序后的图书编号。程序运行界面如图所示,其中①和②两处分别指向待调整区间图书的起始和截止编号。