“神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是347千米，比近近地点高度高147千米。求近地点的高度。程序设计界面和部分代码如下所示。图1图2P_刷题宝

题干

“神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是347千米，比近近地点高度高147千米。求近地点的高度。程序设计界面和部分代码如下所示。

图 1

图 2
Private Sub ①
Dim i, j As Integer A

i = 347 B

j = i – 147 C

Text1.Text = Str(j) D

End Sub
（1）该程序开始运行时，直接得出近地点的高度，则在①处应填_____________________
（2）程序运行时，出现如图所示错误，对照如图，修改一处程序以使此程序正确运行。则修改______语句（选填：A/B/C/D）,修改后的语句为_________________

上一题下一题 0.99难度填空题更新时间:2019-05-29 05:27:25

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

同类题1

一位顾客购买了土豆X 千克、西红柿 Y 千克、辣椒 Z 千克，其中土豆 3.5元/千克、西红柿4.3元/千克、辣椒6.6元/千克。计算该顾客消费总价的算法如下：
输入三种蔬菜的重量X,Y,Z
用公式计算总价 S=3.5*X+4.3*y+6.6*z
输出总价S
结束
以上算法属于（）。

A．枚举算法

B．解析算法

C．排序算法

D．查找算法

同类题2

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图a所示。

(1)在设计程序界面时，应使用图b所示“控件工具箱”中的_____________(填写相应编号)添加文本框Text1。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ’用于标记是否为素数
Randomize
n = Int( ①_____)*2+1
Text1.Text = Str(n)
flag = True ’标记为素数
i = 3
Do While i <= n - 1 And flag = True

If n Mod i = 0 Then

End If

i = i + 2

Loop
If ②_____ Then
Text2.Text = Str(n) + "是素数"
Else
Text2.Text = Str(n) + "不是素数"
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod I = 0”等价的是______________(单选，填字母）。

A．n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i

同类题3

完全平方数之和。编写 VB 程序，实现如下功能：在文本框 Text1 中输入用逗号分隔的一系列整数（每个整数的绝对值不超过 1000，个数不超过 100 个），单击“计算”按钮 Command1，计算输入的整数中的完全平方数之和（完全平方数是指一个整数能表示成某个整数的平方的形式，例如 4 是完全平方数，可以表示成 2 的平方），并将结果显示在标签 Label1 中。程序运行效果如图所示。

（1）文本框 Text1不具备的属性为___（单选，填字母：

（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String
Dim i As Integer, j As Integer, ans As Long
Dim f As Boolean
ans = 0
s = Text1.Text: j = 1:____________
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = , Then
x = Val(Mid(s, j, i - j))
If___________Then
ans = ans + x
f = True
j = i + 1
ElseIf ch = "-" Then
f = False
j = j + 1
End If
Next i
Label1.Caption = "完全平方数之和为： " + Str(ans)
End Sub
（3）若文本框 Text1 中输入的内容为“-4,4,4”（不包括双引号），则标签 Label1 中输出的内容为“完全平方数之和为：__”。

同类题4

有如下通用过程和事件过程，运行程序后，单击窗体，程序的运行结果是（）
public function ss(x as integer,y as integer) as integer
if   x>y   then   ss=x-y   else ss=y-x
END FUNCTION
PRIVATE SUB FORM CLICK(   )
DIM A AS INTEGER ,B AS INTEGER
A=8: B=6
PRINT   SS(A,B)
END SUB

同类题5

S=0
C=0
Do While C <100
C=C+1
S=S+C
Loop
MsgBox (Str(C) + Str(S))
该程序的运行结果是（）

相关知识点