资源简介

浙教版初中信息技术九年级上学期期末试卷（10）
一、单选题
1．（2020九上·期末）程序设计语言的发展阶段不包括(　　)
A．自然语言 B．机器语言 C．汇编语言 D．高级语言
2．（2020九上·期末）流程图的符号中，矩形框一般作为（　　）。
A．判断框 B．输入输出框
C．处理框 D．开始/终止框
3．（2020九上·期末）VB中窗体文件的扩展名是（　　）。
A．frm B．bmp C．bas D．vbp
4．（2020九上·期末）在下列选项中，不属于VB的对象的是（　　）
A．窗体的背景颜色 B．命令按钮
C．文本框 D．标签
5．（2020九上·期末）有程序代码如下：text1.text=“visual basic” 则：text1、text和“visual basic”分别代表（　　）。
A．对象，值，属性 B．对象，方法，属性
C．对象，属性，值 D．属性，对象，值
6．（2020九上·期末）要使标签控件显示时不覆盖其背景内容，要对（　　）属性进行设置。
A．BackColor B．BorderStyle C．ForeColor D．BackStyle
7．（2020九上·期末）对赋值语句的描述正确的是（　　）
①可以给变量提供初值；
②可以将表达式的值赋给变量；
③可以给一个变量重复赋值；
④不能给同一变量重复赋值。
A．①②③ B．①② C．②③④ D．①②④
8．（2020九上·期末）窗体Form1的Name属性是Frm1,它的单击事件过程名是（　　）。
A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click
9．（2020九上·期末）下列程序段执行结果为 （　　）
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
10．（2020九上·期末）下面程序段显示（　　）个“*”
For i = 1 To 5
For j = 2 To i
Print "*";
Next j
Next i
A．9个 B．10个 C．11个 D．12个
二、综合题
11．（2020九上·期末）要编程实现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
12．（2020九上·期末）把程序片段填写完整，并写出x的值是多少。
x=1
y=4
　 　 y<6
x=x*y
y=y+1
Loop
Print x
x的值是：　 　
13．（2020九上·期末）下面的程序用于根据文本框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
三、程序设计题
14．（2020九上·期末）近年来网络技术的迅猛发展，网络购物已经成为当下最热门的购物渠道。小明同学在网购平台上看中了五双运动鞋，想在这五双中选择一双购买（原价和折扣详见商品折扣表）。但是小明的预算是不超过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函数提示“对不起！买不起，请您放弃！”。请编程实现。
④结论：最适合小明的运动鞋是什么。请填写商品名称
答案解析部分
1．【答案】A
【知识点】计算机语言及其发展历程
【解析】【解答】程序设计语言的发展阶段有三代：机器语言—汇编语言—高级语言。故答案选A。
【分析】本题考查的是计算机语言的发展过程。
1.机器语言是由二进制 0、1 代码指令构成，不同的 CPU 具有不同的指令系统。机器语言程序难编写、难修改、难维护，需要用户直接对存储空间进行分配，编程效率极低。
2.汇编语言指令是机器指令的符号化，与机器指令存在着直接的对应关系，所以汇编语言同样存在着难学难用、容易出错、维护困难等缺点。但是汇编语言也有自己的优点：可直接访问系统接口，汇编程序翻译成的机器语言程序的效率高。
3.高级语言是面向用户的、基本上独立于计算机种类和结构的语言。其最大的优点是：形式上接近于算术语言和自然语言，概念上接近于人们通常使用的概念。高级语言的一个命令可以代替几条、几十条甚至几百条汇编语言的指令。
2．【答案】B
【知识点】流程图的概念及其常用图形
【解析】【解答】在流程图的符号中，矩形框一般作为输入/输出框的表示。故答案选B。
【分析】本题考查的是流程图的常用图形表示。 表示开始/结束，表示处理过程，表示判断，表示输入/输出。
3．【答案】A
【知识点】程序的保存及文件扩展名
【解析】【解答】在VB中，窗体文件的扩展名为：.frm。故答案选A。
【分析】本题考查的是窗体文件的扩展名。VB中常见的扩展名有：
1.vbp：Visual Basic Project，VB的工程文件；
2.bas：用于VB写标准模块代码，是应用程序内其它模块访问的过程和声明的容器。
4．【答案】A
【知识点】对象及其属性
【解析】【解答】窗体的背景颜色，属于窗体的属性，不属于VB的对象。故答案选A。
【分析】本题考查的是VB的对象。VB对象是具有特殊属性（数据）和行为方式（方法）的实体。
5．【答案】C
【知识点】对象及其属性
【解析】【解答】在VB中，赋值语句一般有三种，其中，给对象的属性赋值的语句格式是：对象名，属性=属性值。故答案选C。
【分析】本题考查的VB的对象赋值语句。常见的赋值语句有三种：
（1）给变量赋值：变量=表达式；
（2）为对象的属性赋值：对象名，属性=属性值；
（3）为自定义类型的变量的元素进行赋值：变量名，元素名=表达式。
6．【答案】D
【知识点】对象及其属性
【解析】【解答】使标签控件显示不覆盖背景，可以将其背景样式设为透明。backstyle属性指定一个对象的背景是否透明。故答案选D。
【分析】本题考查的对象的属性。BackColor是背景色，BackStyle是否透明，FontSize 字体大小，FonrColor字体颜色。
7．【答案】A
【知识点】常量、变量与赋值语句
【解析】【解答】赋值语句可以给同一变量重复赋值，但重复赋值会将上一次赋值的结果覆盖。故答案选A。
【分析】本题考查的是赋值语句。赋值语句的作用是把等号右边的表达式的计算结果存储到等号坐边指定的变量中，或存放到某个对象指定的属性中。
8．【答案】C
【知识点】事件及其处理过程
【解析】【解答】事件处理过程名的格式：对象名+下划线+事件名。由题知，该题的事件名：单击；对象名是：Frm1。故答案选C。
【分析】本题考查的是VB的事件过程名命名规则。
9．【答案】A
【知识点】分支结构程序设计与分析
【解析】【解答】由题知，判断条件为： If Not x>0 Then x=y-3 Else y=x+3。
所以，当x>0时，y=x+3；当x<=0时，x=y-3。该程序运行过程：
x=5，y=-6
x>0，y=x+3=5+3=8
x-y=-3，y-x=3。
故答案选A。
【分析】本题考查的是顺序分支结构的分析。当出现判断条件时，要先对当前变量进行判断，然后按照判断之后的顺序向下进行。
10．【答案】B
【知识点】循环结构程序设计与分析
【解析】【解答】程序执行过程如下：
i=1，j=2，不打印；
i=2，j=2，打印一次；
i=3，j=2 / j=3，打印两次；
i=4，j=2 / j=3 / j=4 ，打印三次；
i=5，j=2 / j=3 / j=4 / j=5，打印四次。
共打印十次。故答案选B。
【分析】本题考查的是循环结构的执行。For语句是用于确定循环次数的循环语句。例如：
For a = b To c (Step d)
...
Next (a)
其中，a是变量，b是初值，c是终值，d是步长。
第一次循环时，将初值b赋给a，执行完所有语句，返回执行第二次循环，将原来a的值加上步长，并判断a是否超出终值，超出则终止循环，以此类推。d默认为1，即不写步长时，步长为1。b、c可以是常量，也可以是变量或者表达式。
11．【答案】Step 2；s = s + i
【知识点】循环结构程序设计与分析
【解析】【解答】由题知，该程序求前100项奇数的和。利用循环遍历1到100，因为所求为奇数项之和，利用步长step 2 来遍历奇数项，故第一空为：Step 2。通过变量s在遍历过程中计算奇数项之和，故第二空为：s = s + i。故答案为：Step 2 ，s = s + i。
【分析】本题考查的是循环结构的语句表达。VB里的步长就是是在for循环中用于定义循环变量每次增加的值的，如果没有写的话，程序就会按默认的step=1来处理。
12．【答案】Do While；20
【知识点】循环结构语句及格式
【解析】【解答】Loop常与Do While搭配使用在循环结构中，所以第一空应为：Do While；
程序执行过程如下：
x=1，y=4，y<6，x=1*4=4，y=4+1=5；
x=4，y=5，y<6，x=4*5=20，y=5+1=6；
x=20，y=6，y=6，输出x的值：20。
故答案为：Do While 、20。
【分析】本题考查的是Do While……Loop的循环结构。Do...loop循环结构分2种：
1.Do while <条件>
...
loop
2.Do...
loop
until<条件>
第一种是先判断条件，如符合再执行，直到条件不符合退出循环，有可能成为死循环，也有可能一次也不执行；第二种是先执行，再判断条件，若条件不符合，就不再执行第二次，所以这种循环最少要执行一次。
13．【答案】Is = 2,4,6；Is > 10 ,Is < 20或者10 To 20；Is > 20；Case Else
【知识点】分支结构程序设计与分析
【解析】【解答】第一空：若x中的值为2，4，6，则打印“x的值为2，4，6”，故第一空应为：Is = 2,4,6；
第二空：若x中的值为10到20之间的数，则打印“x的值为10~20”，故第二空应为：Is > 10 ,Is < 20或者10 To 20；
第三空：若x中的值为大于20的数，则打印“x 的值大于20”，故第三空应为： Is > 20；
第四空：分支语句除去所有条件选择语句后，剩下的情况用“Case Else”语句判断，故第四空应为： Case Else。
故答案为：Is = 2,4,6 、 Is > 10 ,Is < 20或者10 To 20、 Is > 20、Case Else。
【分析】本题考查的是分支结构语句格式。
14．【答案】
4 结论 篮球鞋001
完整程序：
写法1：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c <= 200 Then
MsgBox ("可以购买！")
Else
MsgBox ("对不起！买不起，请您放弃！")
End If
End Sub
写法2：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c > 200 Then
MsgBox ("对不起！买不起，请您放弃！ ")
Else
MsgBox ("可以购买！")
End If
End Sub
【知识点】分支结构程序设计与分析
【解析】【解答】由题可知，该程序的功能是：输入商品价格和折扣力度，从而得到折后价格。基本公式为：原价*折扣力度/10 = 现价。因需要判断现价是否在小明的消费预算中，所以本程序应使用条件判断语句与分支结构来综合设计。将原价、折扣力度设置为变量a、b，现价设置为变量c，因三个变量均是数值型数据，故数据类型设置为单精度浮点数Single。变量a、b的值由输入数据得到，变量c的值：a*b/10.若变量c的值小于200，输出“可以购买！”提示语句，否则输出“对不起！买不起，请您放弃”提示语句。故答案为：
写法一：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c <= 200 Then
MsgBox ("可以购买！")
Else
MsgBox ("对不起！买不起，请您放弃！")
End If
End Sub
写法二：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c > 200 Then
MsgBox ("对不起！买不起，请您放弃！ ")
Else
MsgBox ("可以购买！")
End If
End Sub
【分析】本题考查的是判断分支结构程序的设计。在程序设计过程中，首先要确定需要使用的数据结构，其次找出程序内在的逻辑关系，找出变量以及特有的判断条件，最后加上固有的结构进行编程即可。
1 / 1浙教版初中信息技术九年级上学期期末试卷（10）
一、单选题
1．（2020九上·期末）程序设计语言的发展阶段不包括(　　)
A．自然语言 B．机器语言 C．汇编语言 D．高级语言
【答案】A
【知识点】计算机语言及其发展历程
【解析】【解答】程序设计语言的发展阶段有三代：机器语言—汇编语言—高级语言。故答案选A。
【分析】本题考查的是计算机语言的发展过程。
1.机器语言是由二进制 0、1 代码指令构成，不同的 CPU 具有不同的指令系统。机器语言程序难编写、难修改、难维护，需要用户直接对存储空间进行分配，编程效率极低。
2.汇编语言指令是机器指令的符号化，与机器指令存在着直接的对应关系，所以汇编语言同样存在着难学难用、容易出错、维护困难等缺点。但是汇编语言也有自己的优点：可直接访问系统接口，汇编程序翻译成的机器语言程序的效率高。
3.高级语言是面向用户的、基本上独立于计算机种类和结构的语言。其最大的优点是：形式上接近于算术语言和自然语言，概念上接近于人们通常使用的概念。高级语言的一个命令可以代替几条、几十条甚至几百条汇编语言的指令。
2．（2020九上·期末）流程图的符号中，矩形框一般作为（　　）。
A．判断框 B．输入输出框
C．处理框 D．开始/终止框
【答案】B
【知识点】流程图的概念及其常用图形
【解析】【解答】在流程图的符号中，矩形框一般作为输入/输出框的表示。故答案选B。
【分析】本题考查的是流程图的常用图形表示。 表示开始/结束，表示处理过程，表示判断，表示输入/输出。
3．（2020九上·期末）VB中窗体文件的扩展名是（　　）。
A．frm B．bmp C．bas D．vbp
【答案】A
【知识点】程序的保存及文件扩展名
【解析】【解答】在VB中，窗体文件的扩展名为：.frm。故答案选A。
【分析】本题考查的是窗体文件的扩展名。VB中常见的扩展名有：
1.vbp：Visual Basic Project，VB的工程文件；
2.bas：用于VB写标准模块代码，是应用程序内其它模块访问的过程和声明的容器。
4．（2020九上·期末）在下列选项中，不属于VB的对象的是（　　）
A．窗体的背景颜色 B．命令按钮
C．文本框 D．标签
【答案】A
【知识点】对象及其属性
【解析】【解答】窗体的背景颜色，属于窗体的属性，不属于VB的对象。故答案选A。
【分析】本题考查的是VB的对象。VB对象是具有特殊属性（数据）和行为方式（方法）的实体。
5．（2020九上·期末）有程序代码如下：text1.text=“visual basic” 则：text1、text和“visual basic”分别代表（　　）。
A．对象，值，属性 B．对象，方法，属性
C．对象，属性，值 D．属性，对象，值
【答案】C
【知识点】对象及其属性
【解析】【解答】在VB中，赋值语句一般有三种，其中，给对象的属性赋值的语句格式是：对象名，属性=属性值。故答案选C。
【分析】本题考查的VB的对象赋值语句。常见的赋值语句有三种：
（1）给变量赋值：变量=表达式；
（2）为对象的属性赋值：对象名，属性=属性值；
（3）为自定义类型的变量的元素进行赋值：变量名，元素名=表达式。
6．（2020九上·期末）要使标签控件显示时不覆盖其背景内容，要对（　　）属性进行设置。
A．BackColor B．BorderStyle C．ForeColor D．BackStyle
【答案】D
【知识点】对象及其属性
【解析】【解答】使标签控件显示不覆盖背景，可以将其背景样式设为透明。backstyle属性指定一个对象的背景是否透明。故答案选D。
【分析】本题考查的对象的属性。BackColor是背景色，BackStyle是否透明，FontSize 字体大小，FonrColor字体颜色。
7．（2020九上·期末）对赋值语句的描述正确的是（　　）
①可以给变量提供初值；
②可以将表达式的值赋给变量；
③可以给一个变量重复赋值；
④不能给同一变量重复赋值。
A．①②③ B．①② C．②③④ D．①②④
【答案】A
【知识点】常量、变量与赋值语句
【解析】【解答】赋值语句可以给同一变量重复赋值，但重复赋值会将上一次赋值的结果覆盖。故答案选A。
【分析】本题考查的是赋值语句。赋值语句的作用是把等号右边的表达式的计算结果存储到等号坐边指定的变量中，或存放到某个对象指定的属性中。
8．（2020九上·期末）窗体Form1的Name属性是Frm1,它的单击事件过程名是（　　）。
A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click
【答案】C
【知识点】事件及其处理过程
【解析】【解答】事件处理过程名的格式：对象名+下划线+事件名。由题知，该题的事件名：单击；对象名是：Frm1。故答案选C。
【分析】本题考查的是VB的事件过程名命名规则。
9．（2020九上·期末）下列程序段执行结果为 （　　）
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
【答案】A
【知识点】分支结构程序设计与分析
【解析】【解答】由题知，判断条件为： If Not x>0 Then x=y-3 Else y=x+3。
所以，当x>0时，y=x+3；当x<=0时，x=y-3。该程序运行过程：
x=5，y=-6
x>0，y=x+3=5+3=8
x-y=-3，y-x=3。
故答案选A。
【分析】本题考查的是顺序分支结构的分析。当出现判断条件时，要先对当前变量进行判断，然后按照判断之后的顺序向下进行。
10．（2020九上·期末）下面程序段显示（　　）个“*”
For i = 1 To 5
For j = 2 To i
Print "*";
Next j
Next i
A．9个 B．10个 C．11个 D．12个
【答案】B
【知识点】循环结构程序设计与分析
【解析】【解答】程序执行过程如下：
i=1，j=2，不打印；
i=2，j=2，打印一次；
i=3，j=2 / j=3，打印两次；
i=4，j=2 / j=3 / j=4 ，打印三次；
i=5，j=2 / j=3 / j=4 / j=5，打印四次。
共打印十次。故答案选B。
【分析】本题考查的是循环结构的执行。For语句是用于确定循环次数的循环语句。例如：
For a = b To c (Step d)
...
Next (a)
其中，a是变量，b是初值，c是终值，d是步长。
第一次循环时，将初值b赋给a，执行完所有语句，返回执行第二次循环，将原来a的值加上步长，并判断a是否超出终值，超出则终止循环，以此类推。d默认为1，即不写步长时，步长为1。b、c可以是常量，也可以是变量或者表达式。
二、综合题
11．（2020九上·期末）要编程实现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
【答案】Step 2；s = s + i
【知识点】循环结构程序设计与分析
【解析】【解答】由题知，该程序求前100项奇数的和。利用循环遍历1到100，因为所求为奇数项之和，利用步长step 2 来遍历奇数项，故第一空为：Step 2。通过变量s在遍历过程中计算奇数项之和，故第二空为：s = s + i。故答案为：Step 2 ，s = s + i。
【分析】本题考查的是循环结构的语句表达。VB里的步长就是是在for循环中用于定义循环变量每次增加的值的，如果没有写的话，程序就会按默认的step=1来处理。
12．（2020九上·期末）把程序片段填写完整，并写出x的值是多少。
x=1
y=4
　 　 y<6
x=x*y
y=y+1
Loop
Print x
x的值是：　 　
【答案】Do While；20
【知识点】循环结构语句及格式
【解析】【解答】Loop常与Do While搭配使用在循环结构中，所以第一空应为：Do While；
程序执行过程如下：
x=1，y=4，y<6，x=1*4=4，y=4+1=5；
x=4，y=5，y<6，x=4*5=20，y=5+1=6；
x=20，y=6，y=6，输出x的值：20。
故答案为：Do While 、20。
【分析】本题考查的是Do While……Loop的循环结构。Do...loop循环结构分2种：
1.Do while <条件>
...
loop
2.Do...
loop
until<条件>
第一种是先判断条件，如符合再执行，直到条件不符合退出循环，有可能成为死循环，也有可能一次也不执行；第二种是先执行，再判断条件，若条件不符合，就不再执行第二次，所以这种循环最少要执行一次。
13．（2020九上·期末）下面的程序用于根据文本框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
【答案】Is = 2,4,6；Is > 10 ,Is < 20或者10 To 20；Is > 20；Case Else
【知识点】分支结构程序设计与分析
【解析】【解答】第一空：若x中的值为2，4，6，则打印“x的值为2，4，6”，故第一空应为：Is = 2,4,6；
第二空：若x中的值为10到20之间的数，则打印“x的值为10~20”，故第二空应为：Is > 10 ,Is < 20或者10 To 20；
第三空：若x中的值为大于20的数，则打印“x 的值大于20”，故第三空应为： Is > 20；
第四空：分支语句除去所有条件选择语句后，剩下的情况用“Case Else”语句判断，故第四空应为： Case Else。
故答案为：Is = 2,4,6 、 Is > 10 ,Is < 20或者10 To 20、 Is > 20、Case Else。
【分析】本题考查的是分支结构语句格式。
三、程序设计题
14．（2020九上·期末）近年来网络技术的迅猛发展，网络购物已经成为当下最热门的购物渠道。小明同学在网购平台上看中了五双运动鞋，想在这五双中选择一双购买（原价和折扣详见商品折扣表）。但是小明的预算是不超过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函数提示“对不起！买不起，请您放弃！”。请编程实现。
④结论：最适合小明的运动鞋是什么。请填写商品名称
【答案】
4 结论 篮球鞋001
完整程序：
写法1：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c <= 200 Then
MsgBox ("可以购买！")
Else
MsgBox ("对不起！买不起，请您放弃！")
End If
End Sub
写法2：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c > 200 Then
MsgBox ("对不起！买不起，请您放弃！ ")
Else
MsgBox ("可以购买！")
End If
End Sub
【知识点】分支结构程序设计与分析
【解析】【解答】由题可知，该程序的功能是：输入商品价格和折扣力度，从而得到折后价格。基本公式为：原价*折扣力度/10 = 现价。因需要判断现价是否在小明的消费预算中，所以本程序应使用条件判断语句与分支结构来综合设计。将原价、折扣力度设置为变量a、b，现价设置为变量c，因三个变量均是数值型数据，故数据类型设置为单精度浮点数Single。变量a、b的值由输入数据得到，变量c的值：a*b/10.若变量c的值小于200，输出“可以购买！”提示语句，否则输出“对不起！买不起，请您放弃”提示语句。故答案为：
写法一：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c <= 200 Then
MsgBox ("可以购买！")
Else
MsgBox ("对不起！买不起，请您放弃！")
End If
End Sub
写法二：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b / 10
Text3.Text = Str(c)
If c > 200 Then
MsgBox ("对不起！买不起，请您放弃！ ")
Else
MsgBox ("可以购买！")
End If
End Sub
【分析】本题考查的是判断分支结构程序的设计。在程序设计过程中，首先要确定需要使用的数据结构，其次找出程序内在的逻辑关系，找出变量以及特有的判断条件，最后加上固有的结构进行编程即可。
1 / 1

展开更多......

收起↑