如:字符串“100101000100”中最多可将2个“0”翻转为“1”,变为“ ”
s = "0" & Text1.Text & "0"
c=0: i= 2
Do While i< Len(s)
If ① Then
i=i+2
ElseIf ② Then
i=i+ 1
Elself ③ Then
i=i+3
Else
i=i+2: c=c+ 1
End If
Loop
Label1.Caption = "最多可翻转" & Str(c) & "个0"
上述程序中方框处可选语句为:
①Mid(s,i-1,1)="1" ②Mid(s,i,1)="1" ③Mid(s,i+1,1)="1"
则① ② ③处语句依次是( )
temp = Val(Text1.Text)
If temp <= a(n) Then
a(n + 1)= temp
Else
left= 1: right= n
Do While left <= right
mid = (left + right) \2
If ① Then right= mid- 1 Else left= mid+ 1
Loop
For j= n To left Step-1
②
Next j
③
End If
则横线①②③上的语句分别是( )
(提示:AVERAGEIF函数用于返回某个区域内满足给定条件的所有单元格的平均值。例如:=AVERAGEIF(B4:B15,"=批发",D4:D15)用于计算7~12月绿豆的平均批发价格。)
场景名:main |
类别序号:2 |
进入方式:来自begin场景,通过“开始”按钮进入 |
呈现方式: ⒈“logo”图层的动画位于舞台左下角,从透明变化到完全显示,并同时由快至慢顺时针旋转3圈 ⒉单击“结束”按钮,动画跳转到“end”场景第1帧并播放 (其他略)。 |
呈现顺序说明: ⒈开始出现背景图片、背景音乐和“标题”动画 ⒉ 1秒后出现“简介”和“logo”动画。 ⒊最后出现“结束”按钮 ⒋本场景动画播放到最后停止,背景音乐随之停止 (其他略) |
编辑界面如图a所示。
请回答下列问题:
抽奖规则:中奖人数为1人,男女不限:
中奖人数超1人,男女对半(奇数时女性多1人)。
程序运行界面如图所示。
实现上述功能的VB程序如下:
Dim xm(1 To 500) As String, xh(1 To 500) As String, xb(1 To 500) As String
Dim n As Integer '学生总人数
Dim a(1 To 100) As Integer '抽中序号
Private Sub Form_ LoadO
'本过程读取n位同学的序号、姓名和性别,
'分别存储在数组xh、xm、xb中
并在列表框List1中显示,代码略
End Sub
Private Sub Command1_ ClickO
Dim rs As Integer, m As Integer, x As Integer, girl As Integer, I As Integer
Dim xbs(1 To 500) As Integer
Randomize
List2.Clear
List2.AddItem "姓名" & " " & "性别"
rs= ①
For i=1 To n
If xb(i)="女" Then xbs<(i)=1 Else xbs(i)=0
Next i
m=0
girl=0
If rs= 1 Then
x= Int(Rnd* n)+ 1
List2.AddItem xm(x) &" "&xb(x)
Else
Do While m<rs
x = Int(Rnd* n)+ 1
If checkf(x) Then
m=m+1: a(m)=x
girl = girl + xbs(a(m))
If ② Then
a(m)=0: m=m-1
ElseIf girl> (rs+1)\2 Then
a(m)=0: m=m-1
③
End If
End If
Loop
For i=1 To m
List2.AddItem
Next i
End If
End Sub
Function checkf(p As Integer) As Boolean
'核对重复中奖,未中过奖返回True
'代码略
End Function
① ② ③
按上述要求,编写一个VB程序:在文本框Text1中输入n个整数(逗号分隔并以逗号结尾),单击“查找”按钮Command1,在标签Label2中输出查找结果。程序运行界面如图所示。
Private Sub Command1_ Click()
Dim i As Integer, j As Integer, n As Integer, k As Integer
Dim ch As String, res AS String, t1 As String, t2 As Integer
Dim m As Integer
'm记录正整数的个数
Dim a(1 To 10) As Integer
s = Text1.Text
n= 0
For i= 1 To Len(s) ‘提取整数,并保存在数组a中
ch = Mid(s, i, 1)
If ch = "," Then
n=n+1
a(n)= Val(t1)
t1=“”
Else
t1=t1 + ch
End If
Next i
For i=1To n-1
k=i
For j=i+ 1 Ton
If a(j)> 0 Then
If ① Then k=j
End If
Next j
If k<>i Then
t2 = a(k): a(k) = a(i): a(i)= t2
End If
If ② Then
m = i 'm记录正整数的个数小
Else
Exit For
End If
Next i
For i= m To 1 Step-1
③
Next i
For i= 1 To 10
If a(i) <>i Then res= res+ Str(i)+","
Next i
Label2.Caption = res
End Sub
①②③