相关试卷
-
1、近年来网络技术的迅猛发展，网络购物已经成为当下最热门的购物渠道。小明同学在网购平台上看中了五双运动鞋，想在这五双中选择一双购买（原价和折扣详见商品折扣表）。但是小明的预算是不超过200元，更省钱最好，请你为小明设计一款软件，选择购买哪一双运动鞋最实惠。
商品折扣表：
商品名称
原价
折扣力度
篮球鞋001
488元
4折
篮球鞋002
458元
5折
跑步鞋001
398元
5折
跑步鞋002
358元
6折
徒步鞋001
339元
6折
软件设计要求：（如图）
①新建一个VB工程，完成“折扣商品计算器”程序的设计。将工程文件以sale.vbp、窗体文件以sale.frm保存到考试目录“操作题”下；
②窗体的标题为“折扣商品计算器”；窗体的左边有三个标签，Label1的属性为“商品原价a:”、Label2的属性为“折扣力度b:”、 Label3的属性为“折后价格c:”；它们的旁边分别有三个文本框，Text1用于商品原价、Text2用于输入折扣力度、Text3用于输出折后价格；在文本框的右边有三个标签，Label4的属性为“元”、Label5的属性为“折”、 Label6的属性为“元”；
③单击“计算”按钮(Command1)，根据计算公式将相应的提示信息显示在标签Text3中；
计算公式为：折后价格=商品原价*折扣力度；如果折后价格不高于200元，MsgBox函数提示“可以购买！”；如果折后价格高于200元，MsgBox函数提示“对不起！买不起，请您放弃！”。请编程实现。
④结论：最适合小明的运动鞋是什么。请填写商品名称
-
2、下面的程序用于根据文本框x中输入的内容进行以下处理：
若x中的值为2，4，6，则打印“x的值为2，4，6”；
若x中的值为10到20之间的数，则打印“x的值为10~20”；
若x中的值为大于20的数，则打印“x 的值大于20”；
否则，打印“x不在范围内”；
Private Sub Command1_Click()
x = Val(Text1.Text)
Select Case x
Case
Print "x的值为2，4，6"
Case
Print "x的值为10~20"
Case
Print "x的值大于20"
Print "x不在范围内"
End Select
End Sub
-
3、把程序片段填写完整，并写出x的值是多少。
x=1
y=4
y<6
x=x*y
y=y+1
Loop
Print x
x的值是：
-
4、要编程实现1+3+5+……+100的值，请填空完整。
Private Sub command1_Click()
Dim n As Integer, i As Integer, s As Double
n = 100
s = 0
For i = 1 To n
Next i
Print s
End Sub
-
5、下面程序段显示（ ）个“*”
For i = 1 To 5
For j = 2 To i
Print "*";
Next j
Next i
A、9个 B、10个 C、11个 D、12个 -
6、下列程序段执行结果为 （ ）
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y; y-x
A、-3 3 B、5 -9 C、3 -3 D、-6 5 -
7、窗体Form1的Name属性是Frm1,它的单击事件过程名是（ ）。A、Form1_Click B、Form_Click C、Frm1_Click D、Me_Click
-
8、对赋值语句的描述正确的是（ ）
①可以给变量提供初值；
②可以将表达式的值赋给变量；
③可以给一个变量重复赋值；
④不能给同一变量重复赋值。
A、①②③ B、①② C、②③④ D、①②④ -
9、要使标签控件显示时不覆盖其背景内容，要对（ ）属性进行设置。A、BackColor B、BorderStyle C、ForeColor D、BackStyle
-
10、有程序代码如下：text1.text=“visual basic” 则：text1、text和“visual basic”分别代表（ ）。A、对象，值，属性 B、对象，方法，属性 C、对象，属性，值 D、属性，对象，值
-
11、在下列选项中，不属于VB的对象的是（ ）A、窗体的背景颜色 B、命令按钮 C、文本框 D、标签
-
12、VB中窗体文件的扩展名是（ ）。A、frm B、bmp C、bas D、vbp
-
13、流程图的符号中，矩形框一般作为（ ）。A、判断框 B、输入输出框 C、处理框 D、开始/终止框
-
14、程序设计语言的发展阶段不包括( )A、自然语言 B、机器语言 C、汇编语言 D、高级语言
-
15、设计一个计算程序。该程序用户界面自己设计，由四个文本框：文本框1（text1，语文）、文本框2（text2，数学）、文本框3（text3，英语）、文本框4（text4，平均分），和三个按钮：命令按钮1（command1，清空）、命令按钮2（command2，计算）、命令按钮3（command4，退出）组成。程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。
-
16、以下程序实现，一个四位数，各位之和等于其前两位，各位之积各于其后二位，最后打印出该四位数，请补充完善该程序。
For to 9
For b=0 to 9
For c=0 to 9
For d=0 to 9
X=
If then
print x
End if
Next d
Next c
Next b
Next a
-
17、以下程序计算2到50间所有偶数的和，请补充完善该程序。
Sub mult( )
Dim Sum As Integer
Sum=0
Dim i as integer
For to 50
If i MOD 2= Then
End if
Next i
Print sum
End Sub
-
18、某物流公司规定A、B两地之间物品的托运费用根据下面的方法计算：物品重量在50千克以内，托运费为每千克0.65元，超过的话，超过部分每千克0.95元，请完善下面的程序。
Dim G As Integer
Dim M As Integer
Input “输入重量 G = ”; G
If then
M=0.65*G
Else
M=
End if
Print “运费为：”; M
-
19、有如下程序段，该程序执行后，变量a的值为（ ）。
a=0
For i=1 To 2
For j=i To 2
For k=1 To j
a=a+2
Next k
Next j
Next i
A、2 B、8 C、10 D、20 -
20、下面程序执行后，x的结果为（ ）。
x=0
For i = 1 to 5
For j = i to 5
x=x+1
Next j
Next i
Print x
A、5 B、10 C、15 D、20