VB期末考试试题(A、B卷).pdf

《VB期末考试试题(A、B卷).pdf》由会员分享，可在线阅读，更多相关《VB期末考试试题(A、B卷).pdf（13页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB 期末考试试题（A 卷）一、选择题 1。要改变控件的宽度，应修改该控件的（B )属性。A、TOP B、width C、Left D、Height 2.将命令按钮Command1设置为不可见，应修改该命令按钮的（A )属性。A、Visible B、Value C、Caption D、Enabled 3。单机滚动条两端的任何一个滚动箭头,将触发该滚动条的(C ）事件.A、Scroll B、KeyDown C、change D、Dragver 4。(D ）对象具有 clear 方法。A、图片框 B、窗体 C、复选框 D、列表框 5。中心定义图片框控件的坐标系统，可采用该图片框的(A ）A、sca

2、le B、Scale X C、scale Y D、setFocus 6。将通过对话框 CommdDialog1 的类型设置成另存为对话框，可调用该控件的（B ）方法。A、Showopen B、Showsave C、ShowColor D、ShowFont 7。形状控件所显示的图形不可能是（D ）A、圆 B、椭圆 C、圆角正方形 D、等边三角形 8.由 Fro K=10 TO oslept 3：next K 循环语句控件的循环次数是(B )A、12 B、0 C、-11 D、10 9。下列数据类型中,占用内存最大值是(D ）A、Boolwan B、Byte C、Lnteger D、Single 1

3、0.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（C ）属性决定了该图片的颜色。A、BackColro B、Forelklor C、Fillcolor D、Dlawstyle 一、选择题 1。要在垂直位置上移动控件，应利用控件的(C )属性.A、Left B、Width C、Top D、Height 2。要在文本框中的文本显示掩码（密码)符,在属性设置时,首先必须设置（D ）属性为 False。A、Txet B、Enabled C、Visible D、Multline 3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（C）的事件。A、KeyPress B、KeyDown C、Cli

4、ck D、Keyllp 4。一下（D ）对象不具有 Clear 方法。A、列表框 B、组合框 C、剪贴框 D、图片框 5.软件列表中设定“文件列表”显示文件类型应改该控件的（D ）属性。A、Path B、FileName C、Name D、Patterw 6组合框有三种风格,它们由 Style 属性所决定，其中为简单组合框时,Style 属性值应为（B ）A、0 B、1 C、2 D、3 7.下列可调整图片框的大小以适合图片的属性是（B)A、Stretch B、autosize C、picture D、oledropmode 8.要想清除文本框中的内容则可利用（A ）进行。A、Caption B

5、、Text C、Clear D、Cls 9。下列表达式中，其值为 0 的是（C ）A、7/9 B、7mod 15 C、79 D、15 mod 9 10.求以 10 为底 X 的常用对数的表达式为（A)A、LoG(X）/LoG（10）B、LN（X)C、LoG(X）/LoG（E)D、LoG（X)二、填空题（每空 2 分，共 20 分)1 代数式 的 Visual Basic 表达式是 sqr(x3+exp（-6)log(y）*atn(a*3.14159/180）/(x*x+yy)2。设 x=2，y=4,a=4，b=6,表达式（ax Xor bx）OR xy IMP y=1 and x=5。5。语句

6、 Line（1000,1000)Step（2000,1500),vbRed,BF 的含义是:在窗体上绘制以角点为（2000，2000)和（4000，3500）的红色实心的矩形。6用随机函数产生 10 个 100500 的整数，其表达可为：for I=1 to 10 a(i)=100+int（400*rnd）next I。7当 x=2 时，语句 if x=2 then Print x=2 的结果值是 True.8。Static Private Sub cmdSum_Click()Dim Sum as integer Sum=2Sum+1 End Sub 问:第三次单击命令按钮 cmdSum 后，

7、Sum 的值为：7。9 声明单精度常量 g(重力加速度）代表 9 8 可写成：const g=9。8。10 欲使在自己设计 VB 程序运行过程中，不中止本程序的运行，同时又可调用系统中已有的应用程序 c：windowsnotepad。exe，可在程序代码窗口必要的地方添加语句：shell（“c：windowsnotepad.exe）。三、编程题 1 随机产生 n 个两位正整数(n 由对话框输入，切 n0)。求出其中的偶数之和，并在标签框 Labol1 上显示。程序写在命令按钮 Command1 的 click 事件中。Private Sub Command1_Click(）Dim n As I

8、nteger Dim i As Integer，sum As Long n=Val(InputBox（”Please input a integer”，Input N value)For i=1 To n rnddat=（10+Int（90*Rnd)If rnddat Mod 2=0 Then sum=sum+rnddat End If Next i Label1。Caption=sum End Sub 2 由输入对话框中输入 100 个数值数据,放入数组 a，将其中的整数放入数组 b,然后运用选择分类将数组 b中的数据按从大到小的顺序排列，并以每行 5 个数据在窗体上输出.注:程序写在窗体

9、form 的 click 事件上。Private Sub Form_Click（)Dim a(1 To 100）Dim b（）as integer Dim i As Integer，j As Integer，k As Integer，pos As Integer,temp as integer For i=1 To 100 a(i)=Val(InputBox(Please input data”)）If a（i)=Int（a（i)Then j=j+1 ReDim Preserve b（j）b(j)=a(i)End If Next i For k=1 To j 1 pos=k For m=k T

10、o j If b(m)b（pos)Then pos=m Next m If k pos Then temp=b(k)b（k）=b（pos）b（pos）=temp End If Next k For k=1 To j If k Mod 5=0 Then Print b（k)Else Print b（k）;Next k End Sub 四、程序阅读题（每小题 6 分,共 18 分）1程序 1:Dim Y As Integer Private Stub Command_Click（)Dim X As Integer X=1 Y=1 Call AA(Y+1）Z=BB(X）Print X，Y,Z End

11、 Sub Private Sub AA(ByVal Z As Integer）Y=Z+X Z=X+Y End Sub Private Function BB（ByRef Y As Integer)Y=Y+1 BB=X+Y End Function 结果：（2 2 2 ）2程序 2：private sub Form_click(）N=3 Dim A（3，3)As Integer For I=I To N For J=I To N A(I,J)=（J l）*N+I Next J Next I For I=2 To N For J=1 To I 1 TEMP=A(I，J）A（I,J）=A(J，I）A

12、(J，I)=TEMP Next J Next I For X=1 To N Print X,A（X,N+X-I），A(X，X)Next X End Sub 结果：（1 0 4 2 7 8 3 11 12)3程序 3：Private Sub Form_click()Dim f1 As Integer，f2 As Integer，f3 As Integer Open”c：a1。datFor Output As#1 f1=2:f2=3 Print 1,”NO。”;3，f1 Print#1,”NO.；4,f2 For I=5 To 7 f3=f1+f2 Print#1，”NO。;I,f3 f1=f2

13、f2=f3 Next I Close 1 End Sub 写出文件 a1.dat 的最终结果。(NO.3 2 NO.4 3 NO.5 5 NO。6 8 NO。7 13）五、程序填空题（每小题 9 分，共 18 分）1。从计算机输入三个数,找出中间数 Private Sub FindMidNum（)X=INPUTBOX（“PLEASE INPUT THE FIRST NUMBER”)Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER)Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER)IF（X=Z）THEN PRINT Y ELS

14、EIF（X=Z ）THEN PRINT Z ELSE PRINT X ENDIF End Sub 2.打印以下杨辉三角形 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 Dim Q（)As Integer N=InputBox（PLEASE INPUT N”)ReDim Q（N,N)For I=1 To N For J=1 To N Q（I,J)=（0）Next J Next I For K=0 To(N 1)Q(K+1,1)=1 Print 1；For I=1 To K Q（K+1，I+1）=（Q（K,I+1)+Q(K，I)Print（Q(K+1,I+

15、1)）Next I Print Next K VB 期末考试试题(B 卷）1 下 列 代 数 式 的Visual Basic表 达 式 是（)。二、填空 2设 x 为大于零的实数,则大于 x 的最小奇数的Visual Basic 表达式是_ IIF(int(x）mod 2=0，int(x)+2,int（x）+1）.3 a1 和 a2 之中有且只有一个与 a3 的值相等，相应的 Visual Basic 逻辑表达式是:_ a1=a3 xor a2=a3。若 a1 和 a2 之中没有一个与 a3 的值相等,则相应的表达式是：_ a1a3 and a2a3_。4设 init 的初值为 10，则由下列

16、循环语句控制的循环次数是_6_。Do While init=5 init=init-1 Loop 5.在 Visual Basic 中,变量从它的作用范围来看，可分为 _全局变量_、_模块级变量_和_过程级变量_ 三种。6语句 Picture1。Circle(800,1000）,500 的含义是 _以圆心为（800,1000）半径为 500 的圆_.7声明定长为 10 个字符变量 Sstr 的语句为：_ Dim Sstr as String10_。三、程序阅读题，阅读下列程序书写结构.程序 1 Private Static Sub Command1_Click（）Dim x As Intege

17、r，s As Integer x=Val（InputBox(请输入一个正整数”)If x 5 Then s=s*x Else s=s+x End If Text1。Text=s=”+Str(s）End Sub 程序运行时连续三次单击 Command1，且设输入的数是5，2 和 4 时，分别写出文本框 text1.text 的值.结果：（s=5 s=10 s=40 )b）程序 2 Private Sub Form_Click(）Form1.Cls w=3 For k=2 To 6 Step 2 Form1.Print w=”;w，”k=;k w=w+1 Next k Form1.Print w=

18、”;w，”k=;k End Sub 写出程序运行时单击窗体后，Form上输出结果.结果为：(w=3 k=2 W=4 k=4 W=5 k=6 W=6 k=8 ）c）程序 3 Rem 在窗体的通用声明区声明两个模块级变量 a 和 y Dim a As Integer，y As Integer Private Sub Form_Load（)Open c:a1。dat”For Output As#1 Close#1 End Sub Private Sub Command1_Click（)Open”c:a1.dat”For Append As 1 Call aa（5)y=y+a Print 1，y=”;

19、y，a=;a：Close 1 End Sub Sub aa(i As Integer）x=1 Do Until x i a=a+x x=x+3 Loop End Sub 写出程序运行时连续三次单击 Command1 后，a1。dat文件的最终结果为：（y=5 a=5 y=15 a=10 y=30 a=15 )五、程序填空题（每小题 9 分，共 18 分)a）程序说明：利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图所示。单击“开始“命令按钮，秒表开始计时，单击“结束“命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了小时分秒“。（假设对象的属性都在程序代码中设定）。Dim

20、 x As Long Dim h As Integer，m As Integer，s As Integer Private Sub Form_Load()Form1。Caption=动态秒表（小时：分:秒）”Command1.Caption=开始S”Command2。Caption=结束&E Label1.Alignment=2 居中对齐 Label1.Caption=”0:0:0 timer1.Interval=_1000_ Timer1。Enabled=False x=0 End Sub Private Sub Command1_Click(）_ timer1。enabled=True _

21、 End Sub Private Sub Command2_Click（)Timer1.Enabled=False x=_0_ Label1。Caption=运行了+Str（h）+”小时”+Str（m)+分”+Str(s)+秒”End Sub Private Sub Timer1_Timer（)x=x+1 h=_x3600_ _ m=（x Mod 3600）60 s=_(x mod 3600)mod 60_ Label1.Caption=Str（h)+：+Str(m）+”:+Str(s)End Sub b)程序说明:已知自然对数的底数 e 的级数表示如下：e=1+1/1!+1/2！+1/3！+

22、.。.+1/n！+.。.本程序利用函数过程 fact()求 e,其中绝对值小于 1E8 的项被忽略。程序代码如下:Private Function fact（m As Integer）As Single 求！的函数 Dim x As Single，i As Integer x=1 for i=1 to m：x=_x*i_:Next i fact=x End Function Private Sub Form_Click（）Dim e As Single，item As Single Dim n As Integer e=1:n=_0_ Do n=n+1 item=_1/fact(n)_ e=e+item Loop while _item=1。OE-8_ Form1。Print”e=”;e End Sub