End select 8.图像框( Imagebox)的 Stretch(拉伸)属性设为True 时,装入的图形可根据图像框的大小自动压缩或扩大。() 9.下列程序段的语法是正确的。 If x>0 Then x=x+9 Else x=x-9 EndI 10:鼠标左键单击”工具”菜单中的”菜单编辑器”菜单项就可打开”菜单编辑器”窗 口 三、将下列命题用ⅴB布尔表达式表示。(共4分,每小题2分) A大于等于C。 2.输入次数小于3次(“输入次数用变量n表示) 四、写出程序(段)的输出结果。(共10分,每小题5分) 1. Private Sub Commandl Click Dim s as integer n as integer sum=0 Do While <<=100 sum=sum+i Fi+l Labell Caption=Str(s) End sub 运行程序,单击 Command1按钮,在下面的 Labell中显示 Labell 2. Sub tryout( x As Integer, y As Integer) x+100 Print“x=”;x,"y=”;y End sub Sub Form Click() Dim a as integer b as integer a=10:b=20 tryout a, b Print“a=”;a,"b=”;b End sub 运行程序,单击窗体Form1,在窗体上显示End Select 8．图像框（ImageBox）的 Stretch（拉伸）属性设为 True 时,装入的图形可根据图像框的大小自动压缩或扩大。（ ） 9．下列程序段的语法是正确的。 （ ） If x > 0 Then x=x + 9 Else x=x −9 End If 10.鼠标左键单击”工具”菜单中的”菜单编辑器”菜单项就可打开”菜单编辑器”窗 口。 （ ） 三、 将下列命题用 VB 布尔表达式表示。（共 4 分, 每小题 2 分） 1． A 大于等于 C。 2． 输入次数小于 3 次 (“输入次数”用变量 n 表示) 四、 写出程序（段）的输出结果。（共 10 分, 每小题 5 分） 1.Private Sub Command1_Click( ) Dim S as integer, N as integer i=1 sum=0 Do While i<=100 sum=sum+i i=i+1 Loop Label1.Caption=Str(S) End Sub 运行程序，单击 Command1 按钮，在下面的 Label1 中显示 Label1 2. Sub tryout( x As Integer, y As Integer) x=x+100 y=y*6 Print “x=” ; x , ”y=” ; y End Sub Sub Form_Click( ) Dim a As Integer, b As Integer a=10: b=20 tryout a , b Print “a=” ; a , ”b=” ; b End Sub 运行程序，单击窗体 Form1，在窗体上显示: