Dim a(1 To 5) As Integer
Dim f As Boolean
a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10
i = 1: f = True
Do While i <= 5 And f = True
If a(i) = 56 Then f = False
i = i + 1
Loop
Label1.Caption = i
For i = 1 To 2
For j = 1 To 6 - 2 * i
If a(j) < a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
Next j Next i
数组元素a(1)~a(6)的初始值依次为“15,13,44,38,26,7”,执行该程序段后,数组a元素的值分别为( )

Dim classname(1 To 8000) As String ‘存储原始数据中的班级名称
Dim selectabc(1 To 8000) As String ‘存储原始数据选项的值
Dim xiangmu(1 To 8000) As String ‘存储原始数据选项的序号
Dim n As Integer
Private Sub Command2_Click() ‘从数据库读取数据,并且按班级名称排序
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="&App.Path&"\pingjia.accdb"
conn.Open
Dim rs As New ADODB.Recordset
Set rs.ActiveConnection = conn
rs.Open "select * from data"
n = 0 ‘记录评价的总条数
'读取数据,并按班级排序,代码略
End Sub
Private Sub Command1_Click()
Dim cstart(1 To 50) As Integer ‘存储每个班级在数组classname中的起始位置
Dim cend(1 To 50) As Integer ‘存储每个班级在数组classname中的末尾位置
Dim k As Integer ‘存储班级数量
Dim testall(1 To 20) As Integer ‘存储每一项总选择人数,例如testall(1)里存储这评价项目1里的总人数,testc(1)里存储评价项目1里选C的人数
Dim testc(1 To 20) As Integer ‘存储每一题(项)选c的人数
‘确定每个班级的起止位置,存储到cstart数组和cend数组
cstart(1) = 1
temp = classname(1)
k = 1
For i = 1 To n
If classname(i) <> temp Then
k = k + 1
cstart(k) = i
temp = classname(i)
End If
Next i
cend(k) = n
For i = 1 To k ‘每个班级分别统计评价项目
For q = 1 To 20 ‘对testall和testc数组初始化,
testall(q) = 0
testc(q) = 0
Next q
For j = cstart(i) To cend(i) ‘对第i个班级进行统计
testall(xiangmu(j)) = testall(xiangmu(j)) + 1
If selectabc(j) = "C" Then
Next j
For p = 1 To 20 ‘统计完成后输出这个班级的20个项目的A+B所占百分比
s = s &""&Str(Round((testall(p) - testc(p)) / testall(p) * 100, 1))
Next p
List2.AddItem s
Next i
End Sub
程序界面如图所示。
实现上述功能的VB程序如下,请在画线处填入合适的代码。
Dim a(1 To 7)As Integer
Dim b(1 To 7)As Integer
Private Sub Form_Load( )
List1.AddItem "面值 张数"
‘在数组a中从小到大存储7种钱币面值的整数值
End Sub
Private Sub Command1_Click( )
Dim n, num, k As Integer
n=Val(Text1.Text)
k=7
Do While n>0
If n>=a(k)Then
①
b(k)=b(k)+1
Else
②
End If
Loop
For i=1 To 7
If b(i)<>0 Then
num=num+b(i)
List1.AddItem Str(a(i))+" "+Str(b(i))
End If
Next i
List1.Addltem"最少"+Str(num)+" 张"
End Sub
以上程序段运行时,为了实现上述功能,画线处应填入的代码分别为:①;②。
1)输入一串由英文字母和数字组成的字符串,
2)如果字符串有连续字符构成的升序段(后面字符的ASCII值比前面的字符的ASCII值大1),则把升序段缩写成由第一个字符加上“ — ”和最后一个字符组成的新字符段,
3)例如:字符串为“abcdf12345becomexy”,则缩写成“a-df1-5becomex-y”。
程序运行时,输入一串字符,输出缩写的字符串,程序运行效果如下图所示:


实现上述功能的程序如下,请在程序划线处填入合适的代码。
s=input("请输入字符串s:")
flag = False
result=" "
for i in range( 0 , k-1):
if :
result=result+s[i]+"-"
flag = True
elif ord(s[i]) ! = ord(s[i+1])-1:
result=result+s[i]
result=result + s[i+1]
print("缩写后的字符串为:",result)
If temp>=a(n) Then
a(n+1)=temp
Else
j=n
Do While j>=l And temp<a(j)
j=j-1
Loop
End If
要使程序实现上述功能,则方框①②中的语句分别是( )
age=float(input('请输入age=')) #输入年龄
=float(input('请输入HRrest=')) #输入安静心率
low=(220-age-HRrest)*0.6+ HRrest #计算最适宜运动心率低值
high=(220-age-HRrest)*0.8+HRrest #计算最适宜运动心率高值
print("最适宜的心率是:",low,"~",high)
input("运行完毕,请按回车键退出...")
|
结构类型 |
数据(节点)之间的关系 |
生活中相应结构应用举例 |
|
队列(线性) |
|
|
|
树 |
|
|
|
图 |
|
|