浙教版初中信息技术九年级上学期期末试卷（10）

①可以给变量提供初值；   

②可以将表达式的值赋给变量；

③可以给一个变量重复赋值； 

④不能给同一变量重复赋值。

x=5

y=-6

If Not x>0 Then x=y-3 Else y=x+3

Print x-y; y-x

For i = 1 To 5

    For j = 2 To i

        Print "*";

    Next j

Next i

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

x=1

y=4

 y<6

    x=x*y

    y=y+1

Loop

Print x

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

商品折扣表：

软件设计要求：（如图）

①新建一个VB工程，完成“折扣商品计算器”程序的设计。将工程文件以sale.vbp、窗体文件以sale.frm保存到考试目录“操作题”下；

②窗体的标题为“折扣商品计算器”；窗体的左边有三个标签，Label1的属性为“商品原价a:”、Label2的属性为“折扣力度b:”、 Label3的属性为“折后价格c:”；它们的旁边分别有三个文本框，Text1用于商品原价、Text2用于输入折扣力度、Text3用于输出折后价格；在文本框的右边有三个标签，Label4的属性为“元”、Label5的属性为“折”、 Label6的属性为“元”；

③单击“计算”按钮(Command1)，根据计算公式将相应的提示信息显示在标签Text3中；

计算公式为：折后价格=商品原价*折扣力度；如果折后价格不高于200元，MsgBox函数提示“可以购买！”；如果折后价格高于200元，MsgBox函数提示“对不起！买不起，请您放弃！”。请编程实现。

④结论：最适合小明的运动鞋是什么。请填写商品名称