bottom = 7
i = 2
Do While i <= bottom - 1
If i Mod 2=0 And a(i)=a(i-1)+a(i+1) Then
For j = i To bottom - 1
a(j) = a(j + 1)
Next j
bottom = bottom - 1
End If
i = i + 1
Loop
For i = 1 To bottom
Text1.Text=Text1.Text+Str(a(i))
Next i
数组元素a(1)到a(7)的值依次为“26,94,68,42,69,27,132”。若该程序段执行后,文本框Text1中显示的内容是( )
Private Sub Command1_Click()
Dim y As Integer
Dim s As String, Dim r As Integer
y = Val(Text1.Text)
s = “ ”
Do While y <> 0
Loop
Label1.Caption = s
End Sub
方框中的代码由以下三部分组成:
①s=Str(r)+s ②r=y Mod 5 ③y = y \5
代码顺序正确的选项是( )
left = 1: right = n: i = 1
Do While i <= right
If a(i) = 0 Then
tmp = a(left): a(left) = a(i): a(i) = tmp
left = left + 1
i = i + 1
ElseIf a(i) = 1 Then
i = i + 1
Else
End If
Loop
要实现上述排序算法思想,则横线处代码应该是( )
图1
(提示:合格数=实考数*(1-不及格率))
图2
要去除中间含有“禁烟”标志的圆形图案,下列工具可行的有(多选,填字母:A . 剪裁 /B . 仿制图章 /C . 画笔 /D . 橡皮擦 )。
若要使得“烟”图层的动画一开始就出现,应进行的操作是。
例如,共有N=5个景点,每个景点连接的下一个景点分别是2,4,5,5,2。
景点号 |
1 |
2 |
3 |
4 |
5 |
下一景点号 |
2 |
4 |
5 |
5 |
2 |
则他可以从2号景点出发,最多可以游玩2号、4号、5号三个景点。
程序代码如下:
Private Sub Command1_Click()
Dim a(1 To 100) As Integer, d(1 To 100) As Integer ′数组a存放下一景点号
Dim jd As String, m As String, c As Integer, i As Integer
Dim s As Integer, p As Integer, k As Integer, ans As Integer
jd = Text1.Text + “,”
s = 0: c = 0
For i = 1 To Len(jd)
m = Mid(jd, i, 1)
If m <> ”,” Then
s = s * 10 + Val(m)
Else
c=c+1:a(c)=s:s=0 ′含义
End If
Next i
ans = 0: k = 0
For i = 1 To c ′枚举游览起点
For k = 1 To c
d(k) = 0
Next k
If d(i) = 0 Then
p = i
Do While p <= c
If d(p) = 0 Then
k=k+1:d(p)=k
Else
y= ② ′填空
If y>ans Then ans=y
k = 0
Exit Do
End If
′改错
Loop
End If
Next i
Text2.Text = Str(ans)
End Sub
1)在左边第1位至最后第n个数(从右向左的第n个数)之间,找出最大值,确定新数的最高位;
2)从最大值的下个位置到第n-1个数之间查找最大值,确定新数的第二位。
3)依次类推,确定最终的最大数。
设计了一个VB程序,在文本框Text1中输入一个n位正整数,在文本框Text2中输入保留的位数,点击“确定”按钮,在文本框Text3中输出保留的最大新数。程序运行界面如图所示。
Private Sub Command1_Click()
Dim a(1 To 20) As String
Dim ys As String, xs As String ′xs记录最大的新数
Dim k As Integer, h As Integer, n As Integer
Dim i As Integer, j As Integer
Dim F As Boolean
xs=“ ”
ys= Text1.Text
n= Len(ys)
k= Val(Text2.Text)
F= True
If ys=“ ” Or n > 20 Or k = 0 Or k > n Then
Label4.Caption =“输入的原数或保留位数不符,请重输!”
F=False
End If
For i= 1 To n
If a(i)<“0” Or a(i)>“9” Then
Label4.Caption=“输入的原数不是数字,请重输!”
Text1.Text=“ ”
F= False
End If
Next i
If F= True Then
h = 1
For i = 1 To k
For j= h To
If a(j) > a(h) Then h = j
Next j
h= h + 1
Next i
Text3.Text= xs
End If
End Sub