- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
两个富翁试图做一笔换钱生意，换钱规则为：富翁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
① 应填的内容是__________ ，②中应填的内容是__________ 。
小青用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
① 应填的内容是__________ ，②中应填的内容是__________ 。
Visual Basic中，如果变量p需要存储一首古诗，那么变量p的数据类型应该定义为（ ）
| A．Single | B．Boolean | C．String | D．Integer |
下列VB表达式，只能产生-100到100之间（包括-100和100）随机数的是（ ）
| A．int(rnd*101) |
| B．int(rnd*1-100)+100 |
| C．int(rnd*200)-100 |
| D．int(rnd*201)-100 |
有如下程序段：
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（ ）
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（ ）
| A．数组元素a(1)到a(6)的值依次为54，29，31，58，71，78 |
| B．此过程中数据共需比较次数为8次 |
| C．此过程中数据共需交换次数为5次 |
| D．此过程中数据“54”共被比较5次 |
编制计算机程序解决问题时,一般分为五个过程:分析问题、设计算法、编写程序、（ ）及检测结果。
| A．调试运行 | B．编制程序框图 |
| C．编译程序 | D．选择程序设计语言 |
判断一个整数n(>=3)是否为素数；提示：将一个不小于3的整数n分别除以2到n的平方根之间的所有整数，如果全部除不尽，那么n为素数（质数），否则本为非素数（合数）
编写程序如下：
Sub Form_Click( )
Dim n As Interger
n=InputBox(“请输入一个正整数（n>=3):”）
k=Int(Spr(n))
i=2
Swit=0
While i<="k" And Swit =0
If ① then Swit =1
Else i=i+1
Wend
If Swit="0" Then Print n;”是一个素数”
Else Print n;”不是一个素数”
②
End Sub
（1） 函数Sqr(n)的功能是___________________
（2） 语句Swit="1" 在这段程序中执行___________次
（3） 可用于接受用户输入文本，又可用于显示文本的控件是_____________
（4） VB中保存工程文件的文件扩展名为__________________
（5） 想在程序后面加上注释，应用到_____________符号
（6） 变量K的数据类型定义为_________________(integer或string)
（7） 在这段程序中，所用到的循环语句为__________________
（8） 认真阅读程序，在 ①序号出应补充的语句是________________
（9） Swit是一个标志变量。_______标志着n未被任何一个正整数整除过
（10）代码调试后，发现在 ② 处少语句 ，应填写___________________
编写程序如下：
Sub Form_Click( )
Dim n As Interger
n=InputBox(“请输入一个正整数（n>=3):”）
k=Int(Spr(n))
i=2
Swit=0
While i<="k" And Swit =0
If ① then Swit =1
Else i=i+1
Wend
If Swit="0" Then Print n;”是一个素数”
Else Print n;”不是一个素数”
②
End Sub
（1） 函数Sqr(n)的功能是___________________
（2） 语句Swit="1" 在这段程序中执行___________次
（3） 可用于接受用户输入文本，又可用于显示文本的控件是_____________
（4） VB中保存工程文件的文件扩展名为__________________
（5） 想在程序后面加上注释，应用到_____________符号
（6） 变量K的数据类型定义为_________________(integer或string)
（7） 在这段程序中，所用到的循环语句为__________________
（8） 认真阅读程序，在 ①序号出应补充的语句是________________
（9） Swit是一个标志变量。_______标志着n未被任何一个正整数整除过
（10）代码调试后，发现在 ② 处少语句 ，应填写___________________
数学帝忘记了自己的E-Mail邮箱密码，但她需要接收一封很重要的来信，于是她求助科技达人帮她尽可能找出密码。她零星记得自己密码的相关信息：密码是六位数字，前面两位为31；最后两位数字相同；能被16和46整除。
科技达人轻松地用VB写了个小程序，帮数学帝找到了所有可能的密码。
科技达人的程序运行界面如下图所示。
科技达人的程序段如下：
Private Sub Command1_Click()
Dim a As Integer, s As long, b As Integer, i As Integer
For i =" 0" To 9999 ④
s =" 310000" + i
If s Mod 46 =" 0" Then
⑤
b =" (s" Mod 100) \ 10
If a =" b" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
请分析任务，完成下列题目。
（1）在程序运行界面中出现了三种控件，它们分别属于列表框、命令按钮、标签，请你在序号后写出其对应的控件类型：
① ② ③
（2）在程序运行界面中控件 ①上显示了“帮助找回密码”字样，这是通过改变 属性的值实现的。
（3）解决问题常用的算法有枚举算法、解析算法、排序算法、查找算法等，那么从上述程序段看，解决此问题的算法是 。
（4）程序段中出现了“Command1_Click”字样，表示这是一个面向对象的事件，这里的对象是___________________，事件是_______________。
（5）从程序段看，这段程序结构属于三种基本程序结构中的 。
（6）在程序段的变量定义语句中，先后出现了integer和long两种数据类型，他们分别是 型和 型。
（7）请在程序段中④和⑤处填充合适的内容，使程序完整。
程序中④处应填入______________
程序中⑤处应填入______________
（8）程序段中的语句 b =" (s" Mod 100) \ 10，目的在于计算s的十位数字，这里“\”实现了____________计算。
科技达人轻松地用VB写了个小程序，帮数学帝找到了所有可能的密码。
科技达人的程序运行界面如下图所示。
科技达人的程序段如下：
Private Sub Command1_Click()
Dim a As Integer, s As long, b As Integer, i As Integer
For i =" 0" To 9999 ④
s =" 310000" + i
If s Mod 46 =" 0" Then
⑤
b =" (s" Mod 100) \ 10
If a =" b" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
请分析任务，完成下列题目。
（1）在程序运行界面中出现了三种控件，它们分别属于列表框、命令按钮、标签，请你在序号后写出其对应的控件类型：
① ② ③
（2）在程序运行界面中控件 ①上显示了“帮助找回密码”字样，这是通过改变 属性的值实现的。
（3）解决问题常用的算法有枚举算法、解析算法、排序算法、查找算法等，那么从上述程序段看，解决此问题的算法是 。
（4）程序段中出现了“Command1_Click”字样，表示这是一个面向对象的事件，这里的对象是___________________，事件是_______________。
（5）从程序段看，这段程序结构属于三种基本程序结构中的 。
（6）在程序段的变量定义语句中，先后出现了integer和long两种数据类型，他们分别是 型和 型。
（7）请在程序段中④和⑤处填充合适的内容，使程序完整。
程序中④处应填入______________
程序中⑤处应填入______________
（8）程序段中的语句 b =" (s" Mod 100) \ 10，目的在于计算s的十位数字，这里“\”实现了____________计算。
编写VB程序，实现如下功能：窗体装载时随机生成10个1至100的整数，并显示在列表框list1中，单击“分组”按钮command1，将这10个数分为奇数和偶数两组，在list2中显示奇数数字，及其个数，list3中显示偶数数字，及其个数。运行界面如第22题图所示，程序代码如下。
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 10) As Integer
Private Sub ② () '窗体加载时产生10个1~100的整数
Dim i As Integer
Randomize
List1.Clear
For i =" 1" To 10
a(i) = ③ '随机产生1个1~100的整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, ji As Integer, ou As Integer
List2.Clear
List3.Clear
ji =" 0:" ou = 0
For i =" 1" To 10
If a(i) Mod 2 <> 0 Then
List2.AddItem Str(a(i))
④
Else
List3.AddItem Str(a(i))
⑤
End If
Next i
List2.AddItem "共有奇数" + Str(ji) + "个"
List3.AddItem "共有偶数" + Str(ou) + "个"
End Sub
（1）观察运行界面，选项中没有用到的控件是 ① ( 选项A．
B．
C．
（2）划线②处应填的事件是 ② 。
（3）划线处③的代码应该是： ③ （填选项号）。
A. Int(Rnd()+100)*1 B. Int(Rnd()+1)* 100 C.Int(Rnd() * 100) + 1
（4）请为④、⑤划线处填入合适的代码，④： ，⑤： 。
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 10) As Integer
Private Sub ② () '窗体加载时产生10个1~100的整数
Dim i As Integer
Randomize
List1.Clear
For i =" 1" To 10
a(i) = ③ '随机产生1个1~100的整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, ji As Integer, ou As Integer
List2.Clear
List3.Clear
ji =" 0:" ou = 0
For i =" 1" To 10
If a(i) Mod 2 <> 0 Then
List2.AddItem Str(a(i))
④
Else
List3.AddItem Str(a(i))
⑤
End If
Next i
List2.AddItem "共有奇数" + Str(ji) + "个"
List3.AddItem "共有偶数" + Str(ou) + "个"
End Sub
（1）观察运行界面，选项中没有用到的控件是 ① ( 选项A．
B． C．A． )。 |
（3）划线处③的代码应该是： ③ （填选项号）。
A. Int(Rnd()+100)*1 B. Int(Rnd()+1)* 100 C.Int(Rnd() * 100) + 1
（4）请为④、⑤划线处填入合适的代码，④： ，⑤： 。
已知方程“x^2+sin(x)-1=0”在区间[0,1]之间单调上升且有唯一解，可用对分思想不断缩小正解所在区间，找出其近似解（要求：误差小于0.001，结果截取3位小数）。单击“求解”按钮Command1，方程近似解显示在文本框Text1中。程序运行界面如下所示：
实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Function fun(x As Single) As Single
fun =" x" ^ 2 + Sin(x) - 1
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim x1 As Single, x2 As Single, y As Single, y1 As Single, y2 As Single
Dim mid As Single
x1 = 0
x2 = 1
y1 =" fun(x1)" '小于0
y2 =" fun(x2)" '大于0
For i =" 1" To ① '确定合适终值，使最终结果恰好小于0.001
mid =" (x1" + x2) / 2
y = fun(mid)
If y < 0 Then
x1 = mid
ElseIf y > 0 The
② [:Z*xx*k.Com]
Else
Exit For
End If
Next i
'结果截取3位小数
'CStr(Format(0.63756, "0.000"))返回“0.638”
Text1.Text = CStr(Format( ③ , "0.000"))
End Sub
实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Function fun(x As Single) As Single
fun =" x" ^ 2 + Sin(x) - 1
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim x1 As Single, x2 As Single, y As Single, y1 As Single, y2 As Single
Dim mid As Single
x1 = 0
x2 = 1
y1 =" fun(x1)" '小于0
y2 =" fun(x2)" '大于0
For i =" 1" To ① '确定合适终值，使最终结果恰好小于0.001
mid =" (x1" + x2) / 2
y = fun(mid)
If y < 0 Then
x1 = mid
ElseIf y > 0 The
② [:Z*xx*k.Com]
Else
Exit For
End If
Next i
'结果截取3位小数
'CStr(Format(0.63756, "0.000"))返回“0.638”
Text1.Text = CStr(Format( ③ , "0.000"))
End Sub