《VB程序设计》试题答案.doc

《《VB程序设计》试题答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《VisualBasic》考试试题班级：姓名：学号：一、选择题（30分）1、如果要更改窗体的标题，需要设置窗体对象的（B）属性。A)BackcolorB)CaptionC)NameD)Borderstyle2、可以用作其他控件容器的控件有（D）A)窗体，列表框，图像框B)窗体，文本框，框架C)窗体，标签，图片框D)窗体，框架，图片框3、若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置（D）A)Text属性值为*B)Caption属性值为*C)Password属性值为*D)Passwordchar属性值为*4、以下选项中，不是VisualBasic控件的是（A）A

2、)窗体B)定时器C)单选框D)命令按钮5、VisualBasic提供的日期函数是（C）A)Time$B)Year$C)Date$D)Timer$6、若要设置文本框可接收多行字符，应设置的属性为（A）A)MultiLineB)LengthC)MaxD)Maxlength7、在运行时,若要使文本框获得输入焦点,则可调用文本框对象的(C)方法来实现。A)RefreshB)GotFocusC)SetFocusD)Tab8、窗体的BackColor属性用于设置窗体的(C)A)宽度B)高度C)背景色D)前景色9、若要设置定时器控件的定时时间，需设置的属性是（B）A)ValueB)IntervalC)Ena

3、bleD)Text10、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)A)工程资源管理器窗口B)工具箱窗口C)代码窗口D)属性窗口11.在VisualBasic中，变量的默认类型是（C）。A、IntegerB、DoubleC、Variant　D、Currency12．为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picture1中，所使用的语句为（B）。A．Picture1.Text=LoadPicture("d:pica.jpg")B．Picture1.Picture=LoadPicture("d:pica.jpg")C．Picture1.Picture

4、=LoadPicture(d:pica.jpg)D．Picture1.Picture=Load("d:pica.jpg")13．MsgBox函数的返回值的类型是（A　）A．整型B．字符串C．逻辑型D．日期型14  表达式4+56*7/8 Mod 9的值是 （B ）A.4   B.5   C.6    D.7 15.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（B）。A、AutosizeB、StretchC、AutoRedraw　D、Appearance二、读程序题，写出程序运行结果。（每小题5分，共30分）1PrivateSubForm_Click()Di

5、mi%,j%Fori=5To1Step-1Forj=1To6-iPrintTab(j+5);"*";NextjPrintNextiEndSub答案：***************2PrivateSubForm_Click()Dimx%,y%X=10Y=20Ifx>ythenPrintx-yElsePrinty-xEndifEndsub答案：103PrivateSubForm_Click()ForI=15to18Print“*”;Forj=3to6step1Print“*”;NextjPrintNextiEndSub答案：********************4Private Sub Form

6、_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 答案：125privatesubform_click()Dimx!,y!x=4.5y=6.5ifx<>0theny=y-xelseify>5.5thenx=yelseifx<>6.5theny=y*xendifprintx,yendsub答案：4.526privatesubform_Click()Di

7、mx!,y!Dimi%X=3.0Fori=1to4X=x+iNextiPrintx+iEndsub答案：18三、编程（每题10分，共40分）1、编写程序求1*2*3+……*N的结果。（N由用户输入）答案：PrivateSubForm_Click()DimnAsInteger,sAsIntegern=InputBox("inputintegerdatan:")n=Val(n)s=0Fori=1Ton