编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。

0 返回首页

1. 编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。

(1) 在设计程序界面时，应使用图b所示“控制工具箱”中的（填写相应编码）添加“生成”按钮。

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

Private Sub Command1_Click()

Dim n As Integer, i As Integer, a As Integer, b As Integer

Randomize

n = Val(Text1.Text)

i =

Do While i <= n

a = Int(Rnd * 100)

b = Int(Rnd * 100)

If Then

List1.AddItem "(" + Str(i) + " )" + Str(a) + "+" + Str(b) + "="

i = i + 1

End If

Loop

End Sub

(3) 运行该程序，在文本框中输入5，单击“生成”按钮后，对语句“a=Int(Rnd*100)”执行次数的描述，最合理的是（单选，填字母） A. 执行次数等于5 B. 执行次数大于等于5 C. 执行次数小于等于

【考点】

算法的控制结构; 运算符、基本运算与表达式;

【答案】

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

综合题普通

1. 某打车APP 能根据路程自动计算车费，小明欲探究其“车费计算”的算法，请回答以下问题。

(1) 解决“车费计算”问题需要提炼的核心要素是（）(多选，填字母）。 A. 车的颜色(c) B. 用户评价(v) C. 起始到目的地的距离(s) D. 车牌号(p) E. 付费金额(pay)

(2) 根据“打车收费标准”，请在划线处填入合适的数学表达式。

①②

(3) 该算法的控制结构是（单选，填字母：A .顺序结构/B .分支结构/C .循环结构）。

综合题普通

2. 分析VB程序，回答问题。

(1) 下列程序运行后，在标签Lab上显示的是。

Private Sub Command1_Click()

Dim a As String, b As String, c As String

a = "印象西湖"

b = "中国"

c = b + Mid(a, 1, 2)

Lab.Caption = c

End Sub

(2) 下列程序运行后，在标签Label1上显示的是。

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, w As Single

w = 6: a = 60: b = 50: c = 30

If w <= 10 And a + b + c <= 115 Then

Label1.Caption = "携带"

Else

Label1.Caption = "托运"

End If

End Sub

(3) 下列程序运行后，数组元素d(3)的值是。

Private Sub Command1_Click()

Dim d(1 To 8) As Integer

Dim i As Integer

For i = 1 To 8

d(i) = 2 * i

List1.AddItem Str(d(i))

Next i

End Sub

综合题普通

3. 编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

(1) 为了实现以上程序功能，使程序正常运行，请完善以下两处代码。

Private Sub Command1_Click()

Dim dx As String, dw As String

Dim s As String, c As String

Dim ch As String

Dim i As Integer

dx = "零壹贰叁肆伍陆柒捌玖拾"

dw = "亿仟佰拾萬仟佰拾元"

s = Text1.Text

If Len(s) > 9

Text2.Text = "输入的数据超出所能转换的范围"

Else

For i = 1 To Len(s)

ch =

c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)

Next i

Text2.Text = c + "整"

End If

End Sub

(2) 由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为。

综合题普通