“神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是347千米，比近近地点高度高147千米。求近地点的高度。程序设计界面和部分代码如下所示。图1 图2 Private Sub ① Dim i, j As Integer A i = 347 B j = i

0 返回首页

1. “神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是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）,修改后的语句为。

【考点】

程序的调试及运行;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题普通

1. 下列程序的功能是：当用户点击窗体下方的“石头”（command1）、“剪子”（command2）、“布”（command3）任意一个按钮的时候，电脑也会在Label1上随机显示出一个石头、剪刀、布（显示在label1上），程序判断出胜负（平局算负）将结果显示到label3上。

Private Sub Command1_Click()

Label1.Caption = sj ‘计算机随机产生一个值

Label2.Caption = Command1.Caption

If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负

= "乙方负"

Else

Label3.Caption = "乙方胜"

End If

End Sub

Function sj() As String '随机生成石头、剪刀、布

i = ‘随机生成1~3任一整数

If i = 1 Then sj = "石头"

If i = 2 Then sj = "剪刀"

If i = 3 Then sj = "布"

End Function

综合题普通

2. 下列VB程序的功能是：程序运行时，单击按钮Command1随机产生20个范围在1－1000（包括1和100）的整数，并在列表框List1中显示，然后单击按钮Command2，计算随机产生的20个整数中的最大值、最小值和平均值，并分别在Text1、Text2和Text3中显示，程序的运行界面如图所示。请在划线上填入合适的代码:

Const n = 20

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer

Randomize

For i = 1 To n

a(i) = Int(Rnd * 1000) + 1

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, max As Integer

Dim min As Integer, sum As Single

max = a(1): min = a(1)

sum = 0

For i = 2 To n

If Then max = a(i)

If a(i) < min Then min = a(i)

sum = sum + a(i)

Next i

Text1.Text = Str(max)

Text2.Text = Str(min)

Text3.Text = Str(sum)

End Sub

综合题普通

3. 编写“简单密码筛选”程序，实现如下功能：在文本框Text1中输入连续多组数字密码，之间以空格符分隔，筛选出简单密码（即一组密码中所有数字均相同），单击“筛选密码”按钮 Commandl，将简单密码显示在列表框 List1 中，简单密码个数显示在文本框 Text2中。程序运行界面如图a所示。

图a

(1) 程序运行时，提示如图b所示的出错信息，导致出错的是下列哪条语句（单选，填字母：A .s=Text1.text； B .List.clear C.Text2.Text = Str(cnt)）

图b

(2) 实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim s As String, c As String, tmp As String

Dim i As Integer, cnt As Integer

Dim flag As Boolean

cnt=0 : flag = True

List.Clear: s = Text1.Text: Text1.text=""

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "0" And ch <= "9" Then

tmp = tmp + ch

If Len(tmp) > 1 Then

If ① Then flag = False

End If

Else

If flag Then

List1.AddItem tmp: cnt = cnt + 1

Else

flag = True

End If

tmp = ""

End If

Next i

If flag Then List1.AddItem tmp: cnt = cnt + 1

If ② Then Text2.Text = "找不到" Else Text2.Text = Str(cnt)

End Sub

① ②

(3) 成功修改第1题中错误的程序代码后，若文本框Text1中输入的内容为

“11 456 7 4443 488 666666”，单击“筛选密码”按钮，文本框Text2中显示的内容是。

综合题困难