《VB程序设计》试题答案.pdf
Visual Basic考试试题 班级：姓名：学号：一、选择题（30 分）1、如果要更改窗体的标题，需要设置窗体对象的（B）属性。A)Backcolor B)Caption C)Name D)Borderstyle 2、可以用作其他控件容器的控件有（D ）A)窗体，列表框，图像框 B)窗体，文本框，框架 C)窗体，标签，图片框 D)窗体，框架，图片框 3、若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置（D ）A)Text 属性值为*B)Caption属性值为*C)Password属性值为*D)Passwordchar属性值为*4、以下选项中，不是 Visual Basic 控件的是（A ）A)窗体 B)定时器 C)单选框 D)命令按钮 5、Visual Basic 提供的日期函数是（C）A)Time$B)Year$C)Date$D)Timer$6、若要设置文本框可接收多行字符，应设置的属性为（A）A)MultiLine B)Length C)Max D)Maxlength 7、在运行时,若要使文本框获得输入焦点,则可调用文本框对象的(C )方法来实现。A)Refresh B)GotFocus C)SetFocus D)Tab 8、窗体的 BackColor 属性用于设置窗体的(C )A)宽度 B)高度 C)背景色 D)前景色 9、若要设置定时器控件的定时时间，需设置的属性是（B）A)Value B)Interval C)Enable D)Text 10、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C )A)工程资源管理器窗口 B)工具箱窗口 C)代码窗口 D)属性窗口 11.在 Visual Basic 中，变量的默认类型是（C ）。A、Integer B、Double C、Variant D、Currency 12为了在运行时把 d:pic 文件夹下的图形文件 a.jpg 装入图片框 Picture1 中，所使用的语句为（B ）。APicture1.Text=LoadPicture(d:pica.jpg)BPicture1.Picture=LoadPicture(d:pica.jpg)CPicture1.Picture=LoadPicture(d:pica.jpg)DPicture1.Picture=Load(d:pica.jpg)13MsgBox 函数的返回值的类型是（A）A整型 B字符串 C逻辑型 D日期型 14 表达式 4+56*7/8 Mod 9 的值是（B ）A.4 B.5 C.6 D.7 15.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（B ）。A、Autosize B、Stretch C、AutoRedraw D、Appearance 二、读程序题，写出程序运行结果。（每小题 5 分，共 30 分）1 Private Sub Form_Click()Dim i%,j%For i=5 To 1 Step-1 For j=1 To 6-i Print Tab(j+5);*;Next j Print Next i End Sub 答案：*2 Private Sub Form_Click()Dim x%,y%X=10 Y=20 If xy then Print x-y Else Print y-x End if End sub 答案：10 3 Private Sub Form_Click()For I=15 to 18 Print“*”;For j=3 to 6 step 1 Print“*”;Next j Print Next i End Sub 答案：*4 Private Sub Form_Click()Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 答案：12 5 private sub form_click()Dim x!,y!x=4.5 y=6.5 if x0 then y=y-x elseif y5.5 then x=y elseif x6.5 then y=y*x end if print x,y end sub 答案：4.5 2 6 private sub form_Click()Dim x!,y!Dim i%X=3.0 For i=1 to 4 X=x+i Next i Print x+i End sub 答案：18 三、编程（每题 10 分，共 40 分）1、编写程序求 1*2*3+*N 的结果。（N 由用户输入）答案：Private Sub Form_Click()Dim n As Integer,s As Integer n=InputBox(input integer data n:)n=Val(n)s=0 For i=1 To n s=s*i Next i Print s=;s End Sub 2、编写程序,任意输入一个整数,确定该整数的奇偶性。Private Sub Form_Click()Dim n As Integer n=InputBox(input integer data n:)n=Val(n)If n Mod 2=0 Then Print 此数是偶数 Else Print 此数为奇数 End If End Sub 3、编写程序用近似公式 PI/41-1/3+1/5-1/7+(-1)n-1/2n-1 求 PI 的近似值，直到最后一项的绝对值小于 10-4为止。答案：Private Sub Form_Click()a=0:n=1:t=1 Do t=(-1)(n-1)/(2*n-1)n=n+1 a=a+t Loop Until Abs(t)=j Then Print j;Else Print 2*i-j;End If Next j Print Next i End Sub 答案 2:Private Sub Form_Click()For i=1 To 9 Print Tab(30-3*i);For j=1 To i Print j;Next j For k=i-1 To 1 Step-1 Print k;Next k Print Next i End Sub
