- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- + 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
有如下 VB 程序，它的输出结果是( )。
S=0
For i=1 To 10
If i mod 2=0 Then S=S+i
Next i
Print “S=”;S
S=0
For i=1 To 10
If i mod 2=0 Then S=S+i
Next i
Print “S=”;S
| A．S=0 | B．S=25 | C．S=30 | D．S=55 |
若整型变量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．顺序 |
根据雨水的PH值判断酸雨情况的规则为：当PH值小于4.7时为“重度酸雨”，当PH值介于4.7～5.6时为“轻度酸雨”，当PH值大于5.6时为“非酸雨”。其算法流程图如下图所示，则图中①、②所在判断框中的内容是( )
| A．①PH＜4.7？ ②PH≤5.6? | B．①PH＜4.7？ ②PH＜5.6? |
| C．①PH＜4.7？ ②PH＞5.6? | D．①PH≥4.7？ ②PH≤5.6? |
小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示：
(1)自摘收费程序所用的算法是_____________（填：解析算法/枚举算法）。
(2)为实现上述功能，请在划线①和②处填入合适的代码。
Dim m As Integer
Private Sub Command1_Click()
Dim n As Integer, s As Integer
Dim w As Single, f As Single
n = Val(Text1.Text) '输入大人人数n
w = Val(Text2.Text) '输入重量w
f = 20 * n + 10 * w '计算无优惠的费用f
s = 0
For i = 1 To m '计算桔子总数
s = s + i * i
Next i
If s= ①__________ Then '判断是否拿到优惠计算费用
f = f * 0.5 + s * 0.3 '计算优惠后的费用
Label7.Caption = "恭喜你，这是优惠后的费用！"
Else
Label7.Caption = "很遗憾，你没有算对哦！"
End If
Label4.Caption = Str(f) '输出最后的费用f
End Sub
Private Sub Form_Load()
Randomize
m = ②________________ '随机产生15层及以内的桔子层数（0不算）
Text3.Text = Str(m)
End Sub
（3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用__________元。
(1)自摘收费程序所用的算法是_____________（填：解析算法/枚举算法）。
(2)为实现上述功能，请在划线①和②处填入合适的代码。
Dim m As Integer
Private Sub Command1_Click()
Dim n As Integer, s As Integer
Dim w As Single, f As Single
n = Val(Text1.Text) '输入大人人数n
w = Val(Text2.Text) '输入重量w
f = 20 * n + 10 * w '计算无优惠的费用f
s = 0
For i = 1 To m '计算桔子总数
s = s + i * i
Next i
If s= ①__________ Then '判断是否拿到优惠计算费用
f = f * 0.5 + s * 0.3 '计算优惠后的费用
Label7.Caption = "恭喜你，这是优惠后的费用！"
Else
Label7.Caption = "很遗憾，你没有算对哦！"
End If
Label4.Caption = Str(f) '输出最后的费用f
End Sub
Private Sub Form_Load()
Randomize
m = ②________________ '随机产生15层及以内的桔子层数（0不算）
Text3.Text = Str(m)
End Sub
（3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用__________元。
对称字符串的特征是从左到右读和从右到左读是完全一样的,如“abba”是对称的,“abcba”也是对称的,判断字符串是否对称的VB程序段如下:
n=Len(s) ’s 是待判断的字符串
k=0:j=n
For i=1 To n/ 2
Next i
If k=0 Then Labell.Caption=“对称”Else Labell.Caption=“不对称”
方框中的代码由以下三部分组成:
① j=j-1 ②If cl <> c2 Then k=k+1 ③cl=Mid(s,i,l):c2=mid(s,j,l)
代码顺序正确的选项是( )
n=Len(s) ’s 是待判断的字符串
k=0:j=n
For i=1 To n/ 2
Next i
If k=0 Then Labell.Caption=“对称”Else Labell.Caption=“不对称”
方框中的代码由以下三部分组成:
① j=j-1 ②If cl <> c2 Then k=k+1 ③cl=Mid(s,i,l):c2=mid(s,j,l)
代码顺序正确的选项是( )
| A．①③② | B．②③① | C．③②① | D．②①③ |
以下程序段运行时出现如图所示的错误提示:
For i=1 To 100
If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了( )
For i=1 To 100If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了( )
| A．For | B．End If | C．Next | D．If |