下图描述的算法执行结果是______________。_刷题宝

题干

下图描述的算法执行结果是______________。

上一题下一题 0.99难度填空题更新时间:2019-07-11 02:13:45

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

同类题1

某算法的部分流程图如图所示，执行这部分流程后，输出 a,b 的值分别是（）

同类题2

用VB编写“拆红包”程序，界面如图所示。在Text1中输入红包金额（元），在Text2中输入人数，点击“Command1”命令按钮，在列表框List1中显示分到的红包情况。

（1）把命令按钮Command1上显示的文字改成“拆红包”，应修改Command1按钮的__________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim i As Integer

Dim num As Integer '存储红包的个数

Dim money As Single '存储红包的剩余金额

Dim k As Single '存储每次分到的红包金额

money = Val(Text1.Text)

num = Val(Text2.Text)

For i = ①________ To 1 Step -1

If i = 1 Then
k = Int(money * 100) / 100 '保留两位小数
Else
k = Int(Rnd() * money / i * 100) / 100
End If
money = ②________
List1.AddItem Str(k)
Next i
End Sub
（3）执行该程序，（选填：有 / 没有）________可能产生金额为0元的红包。

同类题3

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

同类题4

.某程序代码如下：（） Dim count As Integer
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
k = i
For j = i + 1 To Len(s)
If a(k) < a(j) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To Len(s) - 1
If a(i) = a(i + 1) Then count = count + 1
Next i
程序运行结束后,变量 count 的值是（）

同类题5

某算法的部分流程图如图所示。执行这部分流程，输入g的值为100，则输出结果m为（）

相关知识点