陵科技学院2012年VB期末考试题目.docVIP

金陵科技学院2012-2013年第一学期Visual Basic期末考试范围（题目及答案） M12机械设计制造及其自动化(专转本)—丁世斌 整理于2012/12/27 二．填空题。 1．设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其_multiline_属性置为True，再将ScrollBar属性设置为3。 2．运行程序后，要对文本框中的内容进行编辑，但按下键盘不起作用，原因是没有设置__ Enabled 属性为True。 3．关于SetFocus与GotFocus，其中SetFocus是方法，GotFocus是__事件___ 。 4．Print方法可在__窗体_____、__图片框_____和_打印机_上输出数据。 5．在窗体上按顺序拖放了3个控件Text1、Label1、Command1，运行程序，焦点定位在___Text1____控件上。若要使程序一运行焦点就定位在Command1控件上，应对Command1控件设置__Tabstop___属性的值为____0___。 6．运行下列程序，输出结果为 2 1.5 。 Private Sub Form_Click() Dim x As Integer, y As Single x = 1.5: y = 3.5 If x 0 Then y = y - x ElseIf y 0.5 Then x = y ElseIf x 3.5 Then y = y * x End If Print x, y End Sub 7．执行下列程序，单击命令按钮后，从键盘分别输入4和5，则输出是 16 。 Private Sub Command1_Click() Dim x As Integer, y As Integer, s As Integer x = InputBox(请输入x的值) y = InputBox(请输入y的值) s = x If x y Then s = y s = s * s Print s End Sub 8．以下循环进行了 10 次。 Private Sub Form_Click() n = 10 Do While n = 1 n = n - 1 Loop End Sub 9. 执行下面程序，单击Command1，则窗体上显示的第一行是 9 12 ，第三行是 3 -3 ，最后一行是 0 -6 。 Option Explicit Private Sub Command1＿Click() Dim x As Integer,y As Integer X=12:y=0 Do While x＞0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y Loop End Sub 10．运行下列程序，单击窗体后，窗体上显示的结果为 8 13 18 。 Private Sub Form_Click() Dim x As Integer, y As Integer x = 5: y = 3 Do While x + y 25 y = y + 5 x = x + 2 Print y; If y 14 Then Exit Do Loop End Sub 11．执行下列程序，点击Command1后，A(2)的值是 1 、A(7)的值是 0 。程序中第二个循环被执行了 4 次。 Option Explicit Option Base 1 Private Sub Commandl_Click() Dim A(10)As Integer Dim i As Integer，K As Integer For i=l To 10 A(i)=1 Next I K=1 For K=1 To 10 Step K A(K)=0 K=K+2 Next K End Sub 12．执行下列程序，点击Command1后，窗体上的显示结果为 1 2 3 4 。 Option Base 1 Private Sub Command1_Click() Dim a