- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- + 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
某电信部门规定:拨打市内电话时,如果通话时间不超过3分钟(含3分钟),则收取通话费0.2元,如果通话时间超过3分钟,则超过部分以每分钟0.1元收取通话费(通话时间为整数)。下面是计算通话费用的流程图和程序,请认真分析并回答问题。根据题意,完善流程图,填写空白处。

①
下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。
请填写程序空白处。
Private Sub Command1_Click()
Dim ② as ③
‘定义 x 为整型
x = Val(Text1.Text)
④ Then
‘条件语句
⑤
显出通话时间不超过3分钟时的电话费
Else
Text2.Text =" Str(0.2" + 0.1 * (x - 3)) ‘显出通话时间超过3分钟时的电话费
End If
End Sub
这段程序属于 ⑥ 结构程序设计。

①
下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。
请填写程序空白处。
Private Sub Command1_Click()
Dim ② as ③
‘定义 x 为整型
x = Val(Text1.Text)
④ Then
‘条件语句
⑤
显出通话时间不超过3分钟时的电话费
Else
Text2.Text =" Str(0.2" + 0.1 * (x - 3)) ‘显出通话时间超过3分钟时的电话费
End If
End Sub
这段程序属于 ⑥ 结构程序设计。
若X=78,则下列程序运行后的运行结果为▁▁。
INPUT X
IF X<60 THEN
PRINT “BuJeGe”
ELSE
IF X<70 THEN
PRINT “JeGe”
ELSE
IF X<85 THEN
PRINT “ZhengDeng”
ELSE
PRINT “YouXiu”
END IF
END IF
END IF
INPUT X
IF X<60 THEN
PRINT “BuJeGe”
ELSE
IF X<70 THEN
PRINT “JeGe”
ELSE
IF X<85 THEN
PRINT “ZhengDeng”
ELSE
PRINT “YouXiu”
END IF
END IF
END IF
A.YouXiu |
B.ZhengDeng |
C.JeGe |
D.BuJeGe |
已知出租车计费方法如下:路程在3公里以内(包含3公里)收起步价10元,路程超过3公里不超过10公里(包含10公里)部分按每公里2元计费,超出10公里部分按每公里3元计费。现要设计一个VB出租车计费系统程序,在路程文本框中中输入路程数,单击计算按钮可以计算出应付金额并显示到金额文本框中,请回答以下问题:
在设计该程序界面时,要从图二界面到图一界面,需要进行哪些设置?
________________________________________________________________
________________________________________________________________
为计算按钮添加单击事件后,并在其中添加程序代码,代码如下:
Dim d As Single
Dim f As Single
d = Val(Text1.Text)
If d <=" 3" Then ‘3公里以下计费
f =" 10"
end if
If d > 3 And d <=" 10" Then ‘3公里至10公里计费
‘①
End If
If d > 10 Then ‘10公里以上计费
'②
End If
Text2.Text = Str(f)
请完善以上程序代码,在①,②处填入正确的语句
①________________________________
②________________________________
完善程序代码后,若输入路程数为10,则应付金额为________元
实现该程序所用的算法结构属于______________(选择结构/循环结构)
|

________________________________________________________________
________________________________________________________________
为计算按钮添加单击事件后,并在其中添加程序代码,代码如下:
Dim d As Single
Dim f As Single
d = Val(Text1.Text)
If d <=" 3" Then ‘3公里以下计费
f =" 10"
end if
If d > 3 And d <=" 10" Then ‘3公里至10公里计费
‘①
End If
If d > 10 Then ‘10公里以上计费
'②
End If
Text2.Text = Str(f)
请完善以上程序代码,在①,②处填入正确的语句
①________________________________
②________________________________
完善程序代码后,若输入路程数为10,则应付金额为________元
实现该程序所用的算法结构属于______________(选择结构/循环结构)
在Visual Basic中,若a=4,b=3,c=10,则执行完下列语句后,变量c的值为( )
If a+b>c Then
c=a+1
Else
c=b-1
End If
If a+b>c Then
c=a+1
Else
c=b-1
End If
A.2 | B.10 | C.5 | D.4 |
下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是 ,文本框Text2中显示的内容是 。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0"
n=10
for i =" 2" to 10 step 3[:Zxxk.Com]
If n Mod i =" 0" Then
c = c+i
else
c=" c" * i
end if
next i
Text1.Text = Str(i)
Text2.Text = Str(c)
End Sub
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0"
n=10
for i =" 2" to 10 step 3[:Zxxk.Com]
If n Mod i =" 0" Then
c = c+i
else
c=" c" * i
end if
next i
Text1.Text = Str(i)
Text2.Text = Str(c)
End Sub
有如下Visual Basic程序段:
s=1
for i=" 1" to 11 step 3
s=s*i
next i
语句s=s*i共执行的次数为( )
s=1
for i=" 1" to 11 step 3
s=s*i
next i
语句s=s*i共执行的次数为( )
A.11 | B.10 | C.5 | D.4 |