- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在VB中,若a = 8,b = 5,则运行Print a; "-"; b; "="; a - b的结果是( )。
A.a -b = 3 | B.8 - 5 = 3 |
C.a - b = a – b | D.3 |
下列各赋值语句,语法不正确的是( )。
A.x+y=5 | B.number=15 |
C.Label1.caption=time | D.length=x+y |
将以下计算50以内奇数和S的值(s=1+3+5+…+49)的程序段补充完整.
private sub form_click( )dim i as integer, s as integer
s=①__________
for i=1 to 50②_________
③_________
Next i
print “50以内奇数和=”; s
end sub
若整型变量a的值为2,b的值为3,则下列程序段执行后整型变量c的值为( )。
if a>5 then
if b<4 then c=a-b else c=b-a
else
if b>3 then c=a*b else c=a mod b
end if
if a>5 then
if b<4 then c=a-b else c=b-a
else
if b>3 then c=a*b else c=a mod b
end if
A.2 | B.-1 | C.1 | D.6 |
在机场托运行李,每人免费25千克,超过25千克不到50千克,则超出部分按每千克10元收费,如果超过50千克,则超过部分按每千克20元收费。这种计费程序最适合用到的程序结构是( )。
A.循环 | B.赋值 | C.选择 | D.顺序 |
(加试题)猴子选大王的问题:N 只猴子选大王,选举办法如下:从头到尾 1、2、3 报数,凡报 3 的退 出,余下的从尾到头 1、2、3 报数,还是报 3 的退出,依此类推;当剩下只有两只猴子时,不再报数,取 当前报数报 1 的为王。如五只猴子报数,则第一轮顺序为第 12345,第 3 只出列,第二轮顺序为 5421,第 2只出列;第三轮顺序为 145,第 5 只出列,这时第 1 只猴子报数为 1,则第 1 只猴子为猴王。若想当猴王, 请问最初占据什么位置?在 Text1 文本框中输入参选大王的猴子总数量,单击“猴王的位置”,在 Label2 标 签上显猴王最初的位置。VB程序运行界面如下:

实现上述功能的 VB程序如下:
(1)如果只有 10 只猴子参加本次选大王,则猴王最初的位置为:________
(2)实现上述功能的 VB程序如下,请在划线处填入合适代码。
Private Sub Command1Click()
Dim n, x, m, s As Integer '假设参与的猴子数量不超过 5000
Dim a(1 To 5000) As Integer '用数组 a 存储每只猴子的报数,值为 3 时视同出列
Dim t, y As Boolean 't 用于循环,y 为 true 时表示报数顺序是从头到尾,y 为 false 时报数顺序 是从尾到头
n = Val(Text1.Text)
x = 1 'x 为每次猴子的位置
m = 1 'm 为报数的 1、2、3
y = True
t = True
Do While t
'该位置的猴子是否已经出列
If a(x) <> 3 Then '没有出列的,则报数
a(x) = m
①________ '1,2,3 之后重新开始
If m > 3 Then m = 1
Else '每次有猴子报 3 出列之后,检查是否已经只有两只猴子没有出列
s = 0
For i = 1 To n
If ②________ Then s = s + 1
Next i
If s < 3 Then Exit Do
End If
If y = True Then x = x + 1 Else x = x - 1
'检查报数是在递增,还是递减,y 为 true 时递增
'报到最后一次猴子后
If x > n Then y = False: m = 1: x = n
'报到第一次猴子后
If x = 0 Then y = True: m = 1:
Loop
'输出猴王的位置
For i = 1 To n
③_________
If a(i) = 1 Then Label2.Caption = "猴王的位置为第" + Str(i) + " 只"
Next i
End Sub

实现上述功能的 VB程序如下:
(1)如果只有 10 只猴子参加本次选大王,则猴王最初的位置为:________
(2)实现上述功能的 VB程序如下,请在划线处填入合适代码。
Private Sub Command1Click()
Dim n, x, m, s As Integer '假设参与的猴子数量不超过 5000
Dim a(1 To 5000) As Integer '用数组 a 存储每只猴子的报数,值为 3 时视同出列
Dim t, y As Boolean 't 用于循环,y 为 true 时表示报数顺序是从头到尾,y 为 false 时报数顺序 是从尾到头
n = Val(Text1.Text)
x = 1 'x 为每次猴子的位置
m = 1 'm 为报数的 1、2、3
y = True
t = True
Do While t
'该位置的猴子是否已经出列
If a(x) <> 3 Then '没有出列的,则报数
a(x) = m
①________ '1,2,3 之后重新开始
If m > 3 Then m = 1
Else '每次有猴子报 3 出列之后,检查是否已经只有两只猴子没有出列
s = 0
For i = 1 To n
If ②________ Then s = s + 1
Next i
If s < 3 Then Exit Do
End If
If y = True Then x = x + 1 Else x = x - 1
'检查报数是在递增,还是递减,y 为 true 时递增
'报到最后一次猴子后
If x > n Then y = False: m = 1: x = n
'报到第一次猴子后
If x = 0 Then y = True: m = 1:
Loop
'输出猴王的位置
For i = 1 To n
③_________
If a(i) = 1 Then Label2.Caption = "猴王的位置为第" + Str(i) + " 只"
Next i
End Sub
VB程序中Label1.caption="您好",其作用是( )。
A.将文本框Label1的名称设置为"您好" |
B.将文本框Label1显示的文本设置为"您好" |
C.将标签Label1的名称设置为"您好" |
D.将标签Label1显示的文本设置为"您好" |
VB是一种面向对象的程序设计语言,构成对象的三要素是( )。
A.属性、事件、方法 | B.控件、属性、事件 |
C.窗体、控件、过程 | D.窗体、控件、模块 |