資源簡介

浙教版初中信息技術九年級上學期期末試卷（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

展開更多......

收起↑