- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- + VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
阅读分析以下VB程序，该程序采用的算法是_______。
Private Sub Command1_Click()
Dim x As Integer, c As Integer, i As Integer
x = Val(Text1.Text)
c =" 0"
Text2.Text = Str(c)
End Sub
Private Sub Command1_Click()
Dim x As Integer, c As Integer, i As Integer
x = Val(Text1.Text)
c =" 0"
| A．解析 For i =" 1" To x If x Mod i = 0 Then | B．查找 c =" c" + 1[:Zxxk.Com] List1.AddItem Str(i) | C．排序 End If Next I | D．枚举 |
End Sub
某电信部门规定：拨打市内电话时，如果通话时间不超过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
这段程序属于 ⑥ 结构程序设计。
能正确表达“a≤1或a≥5”的VB逻辑表达式是_______。
| A．a<="1" 或a>=5 | B．a<=1,a>=5 | C．a<="1" or a>=5 | D．a<="1" and a>=5 |
如下图VB应用程序界面所示，下列关于类与对象的说法正确的是_______。
| A．图中有５个对象，分别属于３个不同的类 |
| B．图中计算1、Text1等字符为类的名称 |
| C．图中有６个对象，分别属于４个不同的类 |
| D．图中计算1、Text1等字符为对象的名称 |
在VB中，设x=389，能得到其百位数字“3”的正确表达式是_______。
| A．Int(x/10)*10 | B．Int(x/100)*100 | C．Int(x/100) | D．x-Int(x/10)*10 |
在VB中，要在标签对象Start上显示文字“请输入验证码：”，则应改变的属性是_______。
| A．Caption | B．Width | C．Font | D．Height |
赋值语句y = x的功能是________。
| A．x的值赋给y，x的值变为0 |
| B．y的值赋给x，y的值变为0 |
| C．y的值赋给x，y保留原来的值 |
| D．x的值赋给y，x保留原来的值 |
程序代码拼装题：设计程序功能为输入三个整数，按从小到大顺序输出。
要求：将下面三个代码块（可重复使用，也可不用）正确插入程序中，使其能完成题目要求功能。
源程序如下：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入第一个整数：")
b = InputBox("输入第二个整数：")
c = InputBox("输入第三个整数：")
'''在下面插入三段代码
Text1 =" a" & " " & b & " " & c
End Sub
要求：将下面三个代码块（可重复使用，也可不用）正确插入程序中，使其能完成题目要求功能。
源程序如下：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入第一个整数：")
b = InputBox("输入第二个整数：")
c = InputBox("输入第三个整数：")
'''在下面插入三段代码
Text1 =" a" & " " & b & " " & c
End Sub