可视化程序设计A卷

1、可视化程序设计（专升本）期末试卷A卷一、单选题（每小题4分，共60分）下列运算符中，运算级别最高的是（B） TOC o 1-5 h z A、+B、*C、D、Mod下列选择项中（C）不能获得焦点。A、使用Tab键B、用鼠标选择对象C、设置GetFocus的值为TrueD、使用SetFocus方法执行下面的程序段后，x的值为（A ） 2 x=5 For i = 1 To 20 Step 2 x=x+i5Next i TOC o 1-5 h z A、21B、22C、23D、24有如下程序，行程序后单击Buttonl按钮，窗体上显示的是什么（C）Private Sub Command1_Click（）

2、 Dim a Dim b As Integer a = 5 / 2 b = 5 / 2 Print a, b End SubA、2 2B、2 2.5C、2.5 2D、2.5 2.5如果希望用变量X存放数据12345.67890123,应将X定义为什么类型？（A）A、数值B、字符串C、变体D、数值或字符串（视输入的数据而定）以下说法正确的是（D）A、通用过程可以出现在窗体模块和标准模块中B、不同模块中的通用过程可以重名C、同一标准模块中的通用过程可以同D、不同标准模块中的通用过程不能同名下列哪组语句可以将变量A、B的值互换(C )。A、A=B： B=AB、A=C： C=B： B=AC、A=A+B

3、： B=A-B： A=A-BD、A= (A+B) /2： B= (A-B) /2将文本框的(A)属性设置为True时，文本框可以输入或显示多行文本，且会 在输入的内容超出文本框的宽度时自动换行。A、MultiLineB、ScrollBarsC、TextD、Enabled在表达式y = InputBox ( a, b, c )中，b为输入函数对话框的(A )。A、标题B、提示C、预设值D、帮助文件名如果要退出DoLoop循环，可使用语句(B)。A、ExitB、Exit DoC、Exit ForD、Exit SubVB中，将命令按钮控件在窗体中失效(不可用)的属性语句是(C )。-1412B 卷

4、16 A、default B、Cancel C、Enabled D、Visible 12.在 VB 中，称 对象的数据为(A )。A、属性B、方法C、事件D、封装下面的哪一项不能用来在模块之间传递数据(D)。A、全局变量B、对象属性C、全局数组D、模块级变量令A、B、C都是整型变量，A=3, B=4, C=5,下列表达式结果为TRUE的是(C)A、(A + B) C - 1 0B、B+ C * A B * B = B+C*AB*BC、(A - C) * Sqr(B) + B = 0D、A 2 + B 2 - C 2 0下列哪个语句定义了包含8个元素的单精度数组(C )A、Dim a(2,4)

5、As Single3CB、Dim a(1 to 8)!C、Dim a!(7)D、Dim a(1 to 2,3 to 6) As Long二、填空题(每空2分，共20分)下面的程序段的运行结果为(b) 。char str = job”, *p = str;cout *(p+2) endl;已知宏定义：#define N 3#define Y(n) (N+1)*n)执行语句z=2*(N+Y(5+1);后，变量z的值是(48 )。下列函数功能是将数字a中的n个元素逆序存放，填空使程序完整。void invert(int a,int n)int i=0,j=n-1;while(ij) int t;(t

6、=ai )ai=aj; aj=t;i+;j-;答案：t=ai;下列函数是判断s所指的字符串是否是“回文”(即顺读和逆读都是相同的字 符串)，若是“回文”，函数返回1，否则返回0，填空，使程序完整。void fun(char s) int 1=0,j; j=strlen(s); while(ij)i+;j-;答案：if(si=sj-1)return 0;下面程序输出两个字符串中相同的字符，请填空补充程序中的语句。#include void main() char *p=KSEiemP5R”, *q=KsEnbMP8Q”;while if cout*p; p+;q+; coutendl; 答案：*

7、p!= 0 &*q!= 0(或(*p&*q)， *p = = *q编一程序，求满足如下条件的最大的n： 12+22+32+n21000。#includevoid main() int sum,n; sum=0;for(n=1;n+) sum+=n*n; if(sum1000);cout”1*1+2*2+3*3+.1000 的最大的 n 值为： ， 0) s = a Mod 10 a = a / 10 n = n + func(s) Loop Print n End SubPrivate Function func(x%) As Integer func = x * x End Function

8、答：求一个数各位上的数的平方和。下面程序的功能是什么？ -1504C卷1 Private Sub Command1_Click()Dim s%, n% Dim a As String n = 0a = InputBox(Please input a number:) For s = 1 To Len(a)If (func(Val(Mid(a, s, 1) Then n = n + 1 Next Print n End SubPrivate Function func(x%) As Boolean If (x Mod 2 = 0) Then func = True Else func = False End If End Function答：判断一个数各位上的偶数个数写出下列事件过程的执行结果。 Private Sub Command1_Click() Dim s% s=f(5)Print s=; s End SubPrivate Function f(ByVal n As Integer) If n=1 Then f=1 Else f=n+f(n - 1)End IfEnd Function答：s=15写出下列事件过程的执行结果。Public x As Integer Private Sub Command1_Click