安徽大学VB期末考试试题(A、B卷)

1 INPUT N")
0 ）
1 ）
1) = （ Q(K, I + 1) + 1, I + 1) ）
） + Q(K, 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的值相 等，则相应的表达式是：__ a1<>a3 and a2<>a3___。 4．设init的初值为10，则由下列循环语句控制的循环次数是__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 String*10_。 三、程序阅读题，阅读下列程序书写结构。 程序1 Private Static Sub Command1_Click() Dim x As Integer, 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
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 To 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
VB期末考试试题（A卷） 1、 选择题 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、scale 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 10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（ C ） 属性决定了该图片的颜色。 A、BackColro B、Forelklor C、Fillcolor D、Dlawstyle 1、 选择题 1.要在垂直位置上移动控件，应利用控件的（ C ）属性。 A、Left B、Width C、Top D、Height 2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须 设置（ D ）属性为False。 A、Txet B、Enabled C、Visible D、Multline
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=2*Sum+1 End Sub 问：第三次单击命令按钮cmdSum后，Sum的值为： 7。 9．声明单精度常量g(重力加速度)代表9．8可写成：const g=9.8。 10．欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又 可调用系统中已有的应用程序c:\windows\notepad.exe,可在程序代码 窗口必要的地方添加语句：shell(“c:\windows\notepad.exe”)。 三、编程题 1随机产生n个两位正整数（n由对话框输入，切n>0)。求出其中的偶数 之和，并在标签框Labol1上显示。 程序写在命令按钮Command1的click事件中。 Private Sub Command1_Click() Dim n As Integer 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个数据在窗体上输出。 注：程序写在窗体form的click事件上。 Private Sub Form_Click()
A=X X=Y Y=A ENDIF IF （Y>=Z）THEN PRINT Y ELSEIF （ X>=Z ） THEN PRINT Z ELSE PRINT X ENDIF End Sub 2. 打印以下杨辉三角形 1 1
1 1 1 2 3 1 3
1
Biblioteka Baidu
1 4 6 4 1 1 5 10 10 5 Dim Q() As Integer N = InputBox("PLEASE ReDim Q(N, N) For I = 1 To N For J = 1 To N Q(I, J) = （ Next J Next I For K = 0 To （ N – Q(K + 1, 1) = 1 Print 1; For I = 1 To K Q(K + 1, I + Print （ Q(K Next I
3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（ C ）的事 件。 A、KeyPress B、KeyDown C、Click 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、Text C、Clear D、Cls 9.下列表达式中，其值为0的是（ C ） A、7/9 B、7mod 15 C、7\9 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((x^3+exp(-6)*log(y))*atn(a*3.14159/180)/(x*x+y*y)) 2.设x=2,y=4,a=4,b=6,表达式 （a>x Xor b<x） OR x<y IMP y<b 的 结果为True。 3．a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为 a<>1 xor b<>1。 4．把条件为1£ x £ 5 写成VB表达式为: x>=1 and x<=5。 5. 语句Line(1000,1000)-Step(2000,1500),vbRed,BF的含义是：在窗 体上绘制以角点为（2000，2000）和（4000，3500）的红色实心的矩 形。 6．用随机函数产生10个100～500的整数，其表达可为：for I=1 to 10
2
2
）
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.dat"For 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 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<Y ）THEN
四、 程序阅读题（每小题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 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： 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(J, I) = TEMP Next J Next I For X = 1 To N