发布时间 : 星期三 文章南京工业大学vb期末题库6更新完毕开始阅读
B、 C、
50、下列定义Sub过程的语句中，正确的语句是____________。 ①Private Sub Test(St As String * 8) ②Private Sub Test(Sarray( ) As String * 5) ③Private Sub Test(Sarray( ) As String) ④Private Sub Test(St As String) ( )
A、①② B、①④ C、②③④ D、①②③④
51、 ( )
A、 B、 C、
D、
52、窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用 ________。 ( )
A、Frm1.K B、Form.K C、Form1.K D、K
53、 ( )
A、 B、 55、在窗体上画一个名称Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click() Dim x, y, z As Integer x = 5: y = 7: z = 0 Text1.Text = \Call p1(x, y, z) Text1.Text = Str(z) End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是________。 ( ) A、0 B、12 C、Str(z) D、没有显示 56、名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是________。 ( ) A、Private Sub sort(A( )As Integer) B、Private Sub sort(A(10)As Integer) C、Private Sub sort(By Val A( ) As Integer) D、Private Sub sort(A( , )As Integer) 57、在调用Sub过程或Function过程时，采用________________传送相应过程的变量名、数组名、常数或表达式。 ( ) A、形式参数 B、实际参数 C、对象参数 D、数组参数 58、已经删除 59、下面子过程语句说明合法的是____________。 ( ) A、Sub f1(ByVal n%()) B、Sub f1(n%)As Integer C、Function f1%(f1%) D、Function f1(ByVal n%) 60、在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中____________一定可以将Hello显示在当前窗体上。 ( ) A、Forml.Print〞Hello〞 B、Me.Print〞Hello〞 C、Debug.Print〞Hello〞 D、Form2.Print〞Hello〞 2、填空题(本题共计40分) 1、已知A=7.5，B=2，C=-3.6，表达式 a>b and c>a or ab的值为___ false ____. 2、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为__2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y)______ 3、下面程序的功能是判断100～999之间的所有素数，所谓素数是指只能被1和它本身整除的数。完善下列程序。 Private Sub Form_Click( ) Dim i As Integer Dim k As integer For i=100 To 999 For k=2 To i-1 If __ i Mod k=0 ______Then Exit For _________ End If Next k If ___ k=I _____Then Print i End If Next i End Sub 4、输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的\变换成\。 Private Sub Command1_Click() Dim a$,i%,c$，d$ a=inputBox$(\输入字符串\n=____ Len(a) _____ For I=1 To ____ n/2__________ c=Mid(a,I,1) Mid(a,I,1)=_____ Mid(a,n-i+1)_____ ___ Mid(a,n-i+1)______=c Next i Print a End Sub 5、下列程序的运行结果为___2 2_____。 Private Sub Command1_Click( ) x = 1 For k = 1 To 3 If k = 1 Then a = x * x If k<= 2 Then a = x * x+1 If k >= 3 Then a = x * x+2 Print a; Next k End Sub 6、已知数组A(4，4)，各个元素在运行程序时，被赋值并打印，形成四阶方阵。程序执行后，产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。请完善下列程序。例如： 1 2 3 4 ------->1 1 1 1 1 2 3 4 ------->2 2 2 2 1 2 3 4 ------->3 3 3 3 1 2 3 4 ------->4 4 4 4 Private Sub Command1_Click( ) Dim a(4,4) For k=1 To 4 For j=1 To 4 a(k,j)=j Print a(k,j); Next j Print Next k Print For k=2 To 4 For j=1 To __ k _____ t=a(j,k) a(j,k)=___ a(k,j)____ a(k,j)=t Next j Next k End Sub 7、以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值. _____ dim x()_____ as integer private sub command1_click() redim ___ x(1 to 20)____ for i=1 to 20 x(i)=1 print x(i) next i end sub 8、下面的程序用\冒泡\法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click( ) Dim a,i,j,k As Integer a=Array(678,45,324,528,439,387,87,875,273,823) For i=__1 to 9_______ For j=____ i+1 to 10_____ If a(i)____ >=____a(j) Then a1=a(j):a(j)=a(i):a(i)=a1 End If Next j Next i for k=1 To 10 Print a(k); Next k End Sub 9、当sub过程value形参表中存在byval关键字时，执行本程序，单击窗体在窗体上显示的第一行内容是____ m=20 n=10______；若将形参表的byval关键字删掉，在执行本程序，单击窗体后在窗体上显示的第一行内容是____ m=20 n=10________ ；第二行内容是 ____ x=20 y=10_______ 。 Private Sub value(ByVal m As Integer, ByVal n As Integer) m = m * 2 n = n - 5 Print \End Sub Private Sub Form_Click() Dim x As Integer, y As Integer x = 10: y = 15 Call value(x, y) Print \End Sub