两个富翁试图做一笔换钱生意，换钱规则为：富翁A每天给富翁B 10万元，直到满30天；富翁B第一天给富翁A 1分钱，第二天给2分，第三天给4分……富翁B每天给富翁A的钱是前一天的两倍，直到滿30天。要求设计一个程序，在文本框Text1和Text2中分别输入富翁A和富翁B给予对方的钱的数额（万元）。小青用VB设计了如下图所示的程序界面：

1. 两个富翁试图做一笔换钱生意，换钱规则为：富翁A每天给富翁B 10万元，直到满30天；富翁B第一天给富翁A 1分钱，第二天给2分，第三天给4分……富翁B每天给富翁A的钱是前一天的两倍，直到滿30天。要求设计一个程序，在文本框Text1和Text2中分别输入富翁A和富翁B给予对方的钱的数额（万元）。

小青用VB设计了如下图所示的程序界面：

(1) 如上图所示，该窗体内有个对象，这些对象分为类。

(2) 为实现上述功能，请在划线处填入合适代码。

Private Sub Command1_Click()

Dim ma as single

Dim mb as single

Dim s as single

Ma =10*30

Mb = 0.000001

For I = 1 to ①

Mb = ②

S= s + mb

Next I

Text1.text = str(ma)

Text2.text = str(s)

End sub

①应填的内容是，②中应填的内容是。

【考点】

类、对象、属性、方法、事件和事件处理的概念及应用;

【答案】

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

综合题普通

1. 用VB编程实现累加器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击命令按钮Command1后，其计算结果输出在标签框Label1中。运行界面如图所示，VB程序代码如下。

实现上述功能的VB程序如下，请回答下列问题：

(1) 观察运行界面，该窗体中共有个对象。

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

Private Sub Command1_Click()

Dim ans As Integer, t As String, ch As String

Dim i As Integer，s As String

s = Text1.Text

t = "" : ans=0

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch = "," Then

ans =

t = ""

Else

t =

End If

Next i

Label1.Caption = "累加的结果是：" & Str(ans)

End Sub

(3) 如图，若输入的“，”用“；”来代替，输入保持不变，则输出为。

综合题普通

2. 编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母的字符串，单击“统计”按钮Commandl，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如图1所示。

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

(2) 为实现上述功能，请在划线处填入合适代码或选项。

Private Sub Commandl_Click()

Dim s As String，c As String

Dim i As Integer，n As Integer，num As Integer

s = (填程序代码）

num = 0

n = Len(s)

'(填字母:从下列A、B、C三个选项中选取一项）

'(填字母:从下列A、B、C三个选项中选取一项）

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

num = num + 1

End If

Next i

Labell. Caption = str(num)

End Sub

A. Do While i <= n B. c = Mid(s,i,1) C. For i = 1 To n

综合题困难