Private Sub Command1_Click( )
Const s1 = "tea"
s2="老师Happy Teacher's Day!":s3 = ""
For i=1 To Len(s2)
If bjiao(s1,Mid(s2, i, 1))Then s3=s3 + Str(i) + ","
Next i
Text1.Text = s3
End Sub
Function bijiao(x As String, y As String) As Boolean
bjiao = False
For i=1 To Len(x)
If y = Mid(x, i, 1) Then
bijiao = True:Exit Function
End If
Next i
End Function
执行上述程序段后,文本框Text1中显示的内容是( )
Const n=10
Dim a(1 To 10) As Integer
m = Int(Rnd( ) *n+ 1)
For i=1 To n
a(i)= 0
Next i
i=0:j=0:c=1:ans=""
Do While c<=3
i=i Mod n+1
If a(i)=0 Then j=j+1
If j=m Then
a(i)=1:c=c+1
j=0: ans = ans+ str(i)
End If
Loop
Text1.Text = ans
执行上述程序段后,文本框Text1中不可能显示的内容是( )
a(1)=72:a(2)=78:a(3)=71:a(4)=82:a(5)=5:a(6)=41
n=6
For i=1 To n\ 2
k=i
For j=i To n- i
If a(j)>a(j+1)Then t=a(j):a(j)=a(j+1):a(j+1)=t
If a(j)<a(k) Then k=j
Next j
temp=a(k):a(k)=a(i):a(i)=temp
Next i
执行上述程序段后,数组元素a(1)到a(6)的值为( )
n=10:k =Val(Text1.Text)
i=0:j= ①
Do While i<j
m =(i+j+1)\2
If k<a(m) Then j=m-1 Else i= ②
Loop
L= ③
Label1.Caption =">"+Str(k)+"的数据位置为:"+Str(L)
上述程序段横线①②③处的语句依次为( )
①“自行车”图层关键帧中的对象是由“自行车”元件生成的实例,则该图层第5帧到第60帧的补间类型是(选填:逐帧动画/动画补间/形状补间);
②在“自行车”图层第50帧执行“插入关键帧”操作(选填:会/不会)影响动画效果;
③“声音”图层添加了“bj.mp3",其声音属性如图c所示。测试影片时,为了使该场景动画播放完后能自动停止和静音,可在“按钮”图层最后1帧添加动作脚本;
④“重播”按钮元件的部分编辑界面如图d所示。测试影片时,该按钮不能正常使用,下列说法正确的是(多选,填字母)。
A.测试影片时,当鼠标指针经过该按钮时,该按钮将不可见
B.“文字”图层中“弹起”帧和“按下”帧的内容一定相同
C.选中“文字”图层的“点击”帧执行“插入帧”操作,测试影片时,该按钮能正常使用
D.选中“矩形”图层的“点击”帧执行“删除帧”操作,测试影片时,该按钮能正常使用
E.选中“矩形”图层的“点击”帧执行“清除帧”操作,测试影片时,该按钮能正常使用
现需要设计一程序,在窗体加载时,读取数据库中学生的订餐情况,以班级+姓名+订餐情况输出至列表框List1中,在文本框Text1中输人班级,单击命令按钮Command1统计该班级的订餐情况,程序运行如图b所示。
Dim xm(1 To 1000) As String, bj(1 To 1000) As Integer
Dim tc1(1 To 1000) As String, tc2(1 To 1000) As String
Dim n As Integer '学生总人数
Private Sub Form_ Load( )
'从数据库中按班级、学号有序地读取学生的姓名、班级、中午套餐、晚上套餐,
'依次存人xm、bj、tc1、tc2数组中,在List1中显示,总人数存人n中,代码略
End Sub
Private Sub Command1_ Click( )
Dim k As Integer, i As Integer, j As Integer, m As Integer
Dim zc(1 To 4) As Integer, wc(1 To 4) As Integer '用于统计套餐数量
k = Val(Text1.Text)
For i=1 To 4 '为数组赋初始值
zc(i)=0:wc(i)=0
Next i
i=1:j=n '查找班级里第一-位同学的序号
Do While i<=j
m=(i+j)\2
If Then i=m+1 Else j= m-1
Loop
For i=j+1 To n
If bj(i) = k Then
'改错
wc(fx(tc2(i)))= wc(fx(tc2(i))) + 1
End If
If Then Exit For
Next i
's为班级订餐统计信息,代码略
List2.AddItem s
End Sub
Function fx(a As String) As Integer '将套餐字母转换为数字序号
End Function
要求编写程序计算在R轮比赛后,积分排名第Q的队伍编号。为解决此问题,小明编写了一个VB程序。在窗体加载时,从数据库中读取编号为1~2n的队伍实力值,编号存储在数组bh中,实力值存储在数组s1中(每支队伍的实力值两两不同,且每场比赛中实力值较高的总能获胜)。在文本框Text1中输人查询轮次R,在文本框Text2中输人待查询排名Q,单击“查询"按钮Command1后在文本框Text3中输出相应队伍的编号、排名等信息。程序运行效果如图所示。
Constn=4
Dim bh(1 To 2*n) As Integer '队伍编号
Dim sl(1 To 2*n) As Integer '队伍实力
Dim jf(1 To 2*n) As Integer '队伍积分
Sub Form_ load( )
'在窗体加载时读取数据库数据并显示在list1中,代码略
End Sub
Private Sub Command1_ Click()
Dim Q As Integer, R As Integer
Dim i As Integer, j As Integer
R = Val(Text1.Text) : Q = Val(Text2.Text)
For i=1 To R
For j=1 To 2*n Step 2
If Then
jf (bh(j)) = jf(bh(j)) + 1
Else
End If
Next j
Call sort '调用积分排序过程sort
Next i
Text3.Text = "编号:" + CStr(bh(Q)) + ",实力:" + CStr(sl(bh(Q)))+ ",排名:"+ CStr(Q) + ",积分:" + CStr(jf(bh(Q)))
'在List2中输出R轮后的积分表,代码略。
End Sub
Sub sort( )
Dim i As Integer, j As Integer, t As Integer
For i=1 To 2*n-1
For j=2*n To i+1 Step -1
If Then
t=bh(j):bh(j)=bh(j-1):bh(j-1)=t
End If
Next j
Next i
End Sub