- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- + 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
一个六位数n，它的高二位与低二位恰好相同，同时又能被97整除，如109610、196619等。编写VB程序，统计所有符合条件的六位数的个数。
Dim n As Long '六位数
Dim g2 As Integer '高二位
Dim d2 As Integer '低二位
Dim t As Integer '计数
t = 0
n = 100000
Do
g2= ______①______
d2= ______②______
Loop Until n>=1000000
Print t
‘备注：loop until 指的是循环到若条件成立则退出循环
Dim n As Long '六位数
Dim g2 As Integer '高二位
Dim d2 As Integer '低二位
Dim t As Integer '计数
t = 0
n = 100000
Do
g2= ______①______
d2= ______②______
Loop Until n>=1000000
Print t
‘备注：loop until 指的是循环到若条件成立则退出循环
上面这段程序描述的是已知圆半径r，计算面积s。当运行时，输入半径1，输出的面积与实际结果出现了偏差，程序和运行结果如下所示。
导致出现此问题的语句编号是 ，应该改成 。
导致出现此问题的语句编号是 ，应该改成 。
表达式“ 5 + 2 =" 7" or not 7- 4 < 3 or 6 =" 6" and 7 <> 7 ”的值为：_________。
有一组数：1、2、4、7、……，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。求其前20项的和。
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s
写成VB表达式，正确的是____________。（1）某省实施《中华人民共和国道路交通安全法》办法中规定，机动车驾驶人驾驶机动车超过规定时速但未超过百分之五十的，处于二百元罚款。超过百分之五十（未造成交通事故）的，处五百元罚款，每多超过五公里，加处二百元罚款，不足五公里的忽略不计，但最高罚款不得超过二千元。用于计算罚款额的Visual Basic程序如下：
Private Sub Command1_Click()
Dim v0 As Integer, v As Integer, x As Integer
v0 = Val(Text1.Text) 'v0 存储规定速度
v = Val(Text2.Text) 'v存储实际速度
If v > v0 And v <= 1．5 * v0 Then
x = 200
ElseIf v > 1．5 * v0 Then
x =" 500" + Int((v - 1．5 * v0) / 5) * 200
Else
x = 0
End If
If x > 2000 Then x = 2000
Label1.Caption = Str(x)
End Sub
（1）运行该程序时，在Text1文本框中输入50，在Text2文本框中输入60，点击Command1时，在Label1的Caption上显示的罚款金为 。
（2）如下一段Visual Basic程序：
Private Sub Command1_Click()
Dim i As Integer,sum As Integer
Dim x As Integer,n as Integer
n=Val(Text1.text)
sum = 0
For i =" 1" To n
x = Int(Sqr(i))
If x * x =" i" Then sum =" sum" + x
Next i
Label1.Caption = Str(sum)
End Sub
在Text1框中输入10时，点击Command1时，Label1上显示的是 。
Private Sub Command1_Click()
Dim v0 As Integer, v As Integer, x As Integer
v0 = Val(Text1.Text) 'v0 存储规定速度
v = Val(Text2.Text) 'v存储实际速度
If v > v0 And v <= 1．5 * v0 Then
x = 200
ElseIf v > 1．5 * v0 Then
x =" 500" + Int((v - 1．5 * v0) / 5) * 200
Else
x = 0
End If
If x > 2000 Then x = 2000
Label1.Caption = Str(x)
End Sub
（1）运行该程序时，在Text1文本框中输入50，在Text2文本框中输入60，点击Command1时，在Label1的Caption上显示的罚款金为 。
（2）如下一段Visual Basic程序：
Private Sub Command1_Click()
Dim i As Integer,sum As Integer
Dim x As Integer,n as Integer
n=Val(Text1.text)
sum = 0
For i =" 1" To n
x = Int(Sqr(i))
If x * x =" i" Then sum =" sum" + x
Next i
Label1.Caption = Str(sum)
End Sub
在Text1框中输入10时，点击Command1时，Label1上显示的是 。
下列哪一个表达式能产生一个属于区间[100,999]内的整数（ ）
| A．Int（Rnd*1000）+100 | B．Int（Rnd*900）+100 |
| C．Rnd+998 | D．Rnd*1000 |
在编程中经常要交换两个非零变量的值，以下方法中，能实现a、b两个数值型变量交换的是（ ）。（“：”号作用为分隔2句语句）
| A．T="a" ： a="b" ： b=T |
| B．a="b" ： b=a |
| C．a="a+b" ： b="a-b" ： a=a-b |
| D．a="c" ： c="b" ： b=a |
关于以下流程图的描述中，正确的是（ ）。
| A．执行后变量s的值一定小于20 |
| B．循环体共计被执行了20次 |
| C．该循环结构的类型为直到型循环 |
| D．该算法的功能是：求2+5+8+11的和 |
对称宇符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下:
N=Len(s)
K=0:j=n
For i =" 1" To n/2
Nexti
If k =" 0" Then Label1.Caption =”对称” Else Label1.Caption=”不对称”
方框中的代码由以下三部分组成：
①j=j-1
②If cl <>c2 Then k =" k" + 1
③c1=" Mid(s,i,1)" : c2 = Mid(s,j,1)
代码顺序正确的选项是
N=Len(s)
K=0:j=n
For i =" 1" To n/2
Nexti
If k =" 0" Then Label1.Caption =”对称” Else Label1.Caption=”不对称”
方框中的代码由以下三部分组成：
①j=j-1
②If cl <>c2 Then k =" k" + 1
③c1=" Mid(s,i,1)" : c2 = Mid(s,j,1)
代码顺序正确的选项是
| A．①③② | B．②③① | C．③②① | D．②①③ |