- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
某地规定70岁及以上老年人可以办理老年卡,办理过程的部分流程图如图所示:

该部分流程图的算法结构属于( )

该部分流程图的算法结构属于( )
A.顺序结构 | B.选择结构 | C.循环结构 | D.树形结构 |
数学表达式“a>b>c”对应的VB表达式是( )
A.a>b>c | B.a>b and a>c | C.a>b and b>c | D.a>b or b>c |
小王同学正在学习二元一次方程,老师布置了一个二元一次方程求解的题目,方程为2x+3y=10。请利用VB编程帮他求出此二元一次方程的所有整数解(10≥x≥-10,10≥y≥-10),并将每组解在列表框List1中输出,同时统计出共有多少组解,并将统计结果在文本框Text1中显示。
程序运行界面如图所示,为实现以上功能,请在划线处填入合适代码。

Private Sub Command1_Click()
Dim x As Integer, y As Integer, t As Integer
t = 0
For x =" -10" To 10
For y =" -10" To 10
If_____________Then
List1.AddItem "X:" + Str(x) + " " + "Y:" + Str(y)
t=t+1
___________
Next y
Next x
Text1.Text = Str(t)
End Sub
程序运行界面如图所示,为实现以上功能,请在划线处填入合适代码。

Private Sub Command1_Click()
Dim x As Integer, y As Integer, t As Integer
t = 0
For x =" -10" To 10
For y =" -10" To 10
If_____________Then
List1.AddItem "X:" + Str(x) + " " + "Y:" + Str(y)
t=t+1
___________
Next y
Next x
Text1.Text = Str(t)
End Sub
农农摘桃子。农农家的院子里有一棵桃子树,每到秋天树上都会结出很多桃子(假设桃子距地的高度为50—300厘米)。桃子成熟的时候,农农就会跑去摘桃子(假设农农碰到桃子,桃子就会掉下来)。农农有个30厘米高的板凳,当他不能直接用手摘到桃子的时候,就会踩到板凳上再试试。如果今天树上有10个成熟的桃子,请帮农农算一下他能够摘到多少个桃子。
(1)程序运行时界面如图所示,List1中桃子的高度数据由计算机随机产生,Text1中输入农农手伸直的最大高度,Text2中显示农农摘到的桃子数目。

设计如图所示应用程序界面时,应在图中所示的“属性窗口”中,将Form1的__________________属性设置为“农农摘桃子”;为添加列表框List1,应使用图中所示的“控件工具箱”中的______________(填写相应编号)。

(2)“开始摘果”按钮单击事件处理过程的流程图如图所示。请根据流程图将下列程序补充完整。
①___________________ ②___________________

Private Sub Command1_Click()
Dim a(1 To 10) As Integer,
Dim h As Integer, i As Integer, t As Integer
Randomize '初始化Rnd函数
h = Val(Text1.Text)
t=0
For i =" 1" To 10
'随机产生桃子的高度(50-300厘米)
a(i) =" Int(Rnd" * 251) +50
List1.AddItem "桃子"+Str(i)+"高度:"+Str(a(i))
If ① Then t =" t" + 1
Next i
②
End Sub
(1)程序运行时界面如图所示,List1中桃子的高度数据由计算机随机产生,Text1中输入农农手伸直的最大高度,Text2中显示农农摘到的桃子数目。

设计如图所示应用程序界面时,应在图中所示的“属性窗口”中,将Form1的__________________属性设置为“农农摘桃子”;为添加列表框List1,应使用图中所示的“控件工具箱”中的______________(填写相应编号)。

(2)“开始摘果”按钮单击事件处理过程的流程图如图所示。请根据流程图将下列程序补充完整。
①___________________ ②___________________

Private Sub Command1_Click()
Dim a(1 To 10) As Integer,
Dim h As Integer, i As Integer, t As Integer
Randomize '初始化Rnd函数
h = Val(Text1.Text)
t=0
For i =" 1" To 10
'随机产生桃子的高度(50-300厘米)
a(i) =" Int(Rnd" * 251) +50
List1.AddItem "桃子"+Str(i)+"高度:"+Str(a(i))
If ① Then t =" t" + 1
Next i
②
End Sub
下列VB程序运行时,在文本框Text1中输入数据-25,在文本框Text2中输入数据-100,单击命令按钮Command1后,文本框Text3中显示的内容是______。
Private Sub Command1_Click( )
Dim a As Integer, b As integer, c as integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a>b and a>0 Then c="sqr(a)" else c=sqr(abs(b))
Text3.Text = str(c)
End Sub
Private Sub Command1_Click( )
Dim a As Integer, b As integer, c as integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a>b and a>0 Then c="sqr(a)" else c=sqr(abs(b))
Text3.Text = str(c)
End Sub
某数组有8个元素,依次为500、419、352、350、300、200、180、100,若采用顺序查找法在该数组中查找数据300,需要查找的次数是( )
A.1 | B.3 | C.4 | D.5 |
已知n的值,求1至n的所有的偶数之和s,下列算法的功能是计算s值:
① 输入变量n的值,将变量s赋初值0,将变量i赋初值1
② 如果i的值大于n则转⑤否则转③
③ 如果i是偶数,则将s的值加上i的值,结果存放在s中
④ 将i的值增加1并转②
⑤ 输出s的值
上述算法描述中包含的控制结构有( )
① 输入变量n的值,将变量s赋初值0,将变量i赋初值1
② 如果i的值大于n则转⑤否则转③
③ 如果i是偶数,则将s的值加上i的值,结果存放在s中
④ 将i的值增加1并转②
⑤ 输出s的值
上述算法描述中包含的控制结构有( )
A.选择结构 | B.循环结构 |
C.选择结构、循环结构 | D.顺序结构、选择结构、循环结构 |
下列语句合法的是( )
A.Const math As string =150 |
B.Const finished As Boolean=Ture |
C.Const m As Integer=40000 |
D.Const cost As Single=325.90 |
以下是一个用VB制作的温度转换器的设计界面,由图回答以下几个问题:



(1)由图可知,当前正在编辑的工程文件名是
(2)由图综合分析可得,“计算”所指的对象名称为
(3)通过上图可知,代码窗口的事件处理过程是 ,同时也能发现text是text1对象的一个 (选填:方法/属性)。
(4)在代码窗口 (选填:能/不能)修改某对象的属性。



(1)由图可知,当前正在编辑的工程文件名是
(2)由图综合分析可得,“计算”所指的对象名称为
(3)通过上图可知,代码窗口的事件处理过程是 ,同时也能发现text是text1对象的一个 (选填:方法/属性)。
(4)在代码窗口 (选填:能/不能)修改某对象的属性。