构成一个循环结构，需要有：循环的初始状态、___________、循环体这三个要素。_刷题宝

题干

构成一个循环结构，需要有：循环的初始状态、___________、循环体这三个要素。

上一题下一题 0.99难度填空题更新时间:2016-11-22 01:20:22

答案(点此获取答案解析）

同类题1

以下程序段是一个完整的Visual Basic的Do语句，则划线处的语句应该是（）。
Do While a<=5
s=s+a : a=a+1
________________

同类题2

编码工作常被运用于密文或压缩传输。有一种最简单的编码方式，把一些有规律的单词编成数字。编码方法如下：
字母表中共有26个字母{a，b，…，z}，把符合“长度不超过6”的所有字符组合升序排列，一个单词的编码就对应着它排序后的位置。例如：a→1 b→2 z→26 aa→27 ab→28 az → 52 ba → 53 bb →54…

小何为此编写了VB程序，将该编码理解为26进制数值，求该编码对应的数值。程序运行，从文本框Text1输入要查询的单词，单击按钮Command1，如果输入的单词符合编码条件，则在Label3上显示对应的编码值否则在Label3中显示“不符合编码条件”。

实现上述功能的VB程序和程序运行界面如下所示，请补充完善代码。

Function c(n As Long, r As Long) As Long
Dim i As Long, cc As Long
cc = 1
For i = 1 To r
cc = cc * n
Next i
①
End Function
Private Sub Command1_Click()
Dim s As String, ch As String
Dim bm As Long, qz As Long
Dim xh As Integer
s = Text1.Text
bm = 0
flag = True
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ② Then
flag = False
Exit For
End If
xh = Asc(ch) - Asc("a")+1
③
bm = bm + xh * qz
Next i
If flag Then
Text2.Text = s + " 的编码值为：" + ④
Else
Text2.Text = "输入内容不符合编码规则"
End If
End Sub

同类题3

有如下 Visual Basic 程序段：
s = 0
For k = To 5 s = s + k
Next k
该程序段运行后，循环体 s = s + k 被执行 10 次，则循环变量 k 的初值是（）

同类题4

期末将近，英语老师需要统计每个同学的四次月考的英语平均分，以便假期有针对性复习。某同学编写一个VB程序来完成这项工作。

Private Sub Command1_Click()

Dim Sum as Single,n as Integer,ave as Single

N=1

T=InputBox(“请输入第”+str$(n)+”次英语成绩:”)

N=N+1

Loop Until ②

Ave=Sum/4

Print “四次英语的平均成绩是”;Ave

End Sub

【小题1】程序中①位置的语句是( )。

【小题2】程序中②位置的语句是( )。

【小题3】上面这段程序的主要结构是( )。

【小题4】对某个变量进行处小数处理，即保留两位小数，对第三位小数进行四舍五入。其语句为：A=int(A*X+0.5)/X，则X=( )。

【小题5】Visual Basic代码中，将多个语句合并在一行上的并行符是( )。

【小题6】下列关于算法的特征描述不正确的是( )。

A．有穷性：算法必须在有限步之内结束

B．确定性：算法的每一步必须有确切的含义

C．输入：算法必须至少有一个输入

D．输出：算法必须至少有一个输出

【小题7】函数Abs(-9)返回的值是( )。

【小题8】下面能够将字符型数值转换成数值型数值的函数名是( )。

【小题9】上段程序中，变量n的类型为( )。

【小题10】流程图中表示判断的符号是( )。

【小题11】Visual Basic中下面为合法变量的是( )。

【小题12】上段程序中，变量Sum最终结果是四次月考英语成绩的( )。

【小题13】上段程序中，变量N的最后一个值是( )。

【小题14】程序设计时，算法的描述方法有多种，下列选项中不能描述算法的是( )。

C．机器语言

D．自然语言

【小题15】设置窗体标题时，应改变窗体的( )。

B．Caption属性

C．BackColor属性

同类题5

小李编写一个统计学生选考科目的 VB 程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科占有效人数的百分率求出各科排名｡程序运行时，单击“显示”按钮 Command1，学生选课数据显示在列表框 List1 中，各科编号及对应科目名称显示在列表框 List2 中，单击“统计”按钮 Command2，选课结果按各科百分率由高到低显示在列表框 List3 中，程序运行结果如图所示｡

现上述功能的 VB 程序如下，请回答下列问题：
（1）学生选课的编码数据存储在数据表中，其字段名为__________________｡
（2）请在划线处填入合适的代码｡
Dim ach(1 To 500) As String '存储各学生选课编码
Dim bno(1 To 10) As Integer '存储各科目编号
Dim bname(1 To 10) As String '存储各科目名称
Dim bnum(1 To 10) As Integer '存储各科目被选次数
Dim bmc(1 To 10) As Integer '存储各科目被选的名次
Dim n As Integer, num As Integer
Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB. Connection, rs As New
ADODB. Recordset, sql As String
cn. Open "provider=Microsoft. Jet. oledb. 4. 0;Data Source =" + App. Path + " \students. mdb"
rs. Open "select ∗ from choose", cn
Do While Not rs. EOF
n = n + 1 : ach(n) = rs. Fields("subject") : rs. MoveNext
Loop
rs. Close: cn. Close
Set rs = Nothing
Set cn = Nothing
For i = 1 To 7
bno(i) = i: bname(i) = Mid(km, (i - 1) ∗2 + 1, 2)
List2. AddItem Str (bno (i)) + " - - -" +bname(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer
Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) =True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) = ①_________
Next j
num = num + 1
End If
Next i
i = 1
Do While i <= 7 '该循环得到各学科被选人数的名次
bmc(i) = 1
For j = 1 To 7
If bnum(j) > bnum(i) Then ②__________
Next j
i = i + 1
Loop
For i = 1 To 7
For j = 1 To 7
If ③_________Then
per = Int(bnum(j) ∗ 100 / num ∗ 100)/ 100
List3. AddItem Str(bno(j)) + "---" +bname(j) + "---" + Str(per) + "%"
End If
Next j
Next i
End Sub
Function check(s As String) As Boolean
'代码略，若学生选科代码有效，函数返回 True，否则返回 False
End Function

相关知识点