VB习题(2016)

Call test2 End Sub

Private Sub test2() Dim x As Single x = x + 20 Print x End Sub

以上程序的执行结果是( )。 32、 有下列程序段：

Private Sub Command1_Click() Dim a As Integer, b As Integer a = 6 b = 7

Call say(a, b) Print a, b End Sub

Sub say(x As Integer, ByVal y As Integer) Dim a As Integer a = 2 * x + y x = a + 1 y = x + 10 End Sub

以上程序的执行结果分别是( )、( )。

33、 设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，请将下面代码补充完整。 Private Sub Hscroll1.___________

Label1.Caption = Hscroll1.___________ End Sub

34、在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程： Private Sub Form_Click( ) Text1.Text=\ End Sub

Private Sub Text1_Change( ) Picture1.Print\ End Sub

程序运行后，单击窗体，则在文本框中显示的内容是 ( )，而在图片框中显示的内容是( )。