2014年计算机二级VB模拟试题及答案（4）

　　21、函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。

　　Private Type Ang

　　K As Integer

　　Si nx As Si ngle

　　Cosx As Si ngle

　　End Type

　　Private Sub Form_Click()

　　Di m Y As Si ngle

　　Di mi As Integer

　　Di m Ksc As Ang

　　Open ____________

　　Y =3.14159/180

　　For i =1To 90

　　Ksc .K =i

　　Ksc .Si nx=Si n(i*Y)

　　Ksc .Cosx=Cos(i +Y)

　　________

　　Next i

　　Close #2

　　Elld Stub

　　A."..\Datal .txt"For Rando mAs #1Len =10 Put #1，i ，Ksc

　　B."..\Datal .txt"For Rando m As #1Len =10 Put #1，Y ，Ksc

　　C."..\Datal .txt"For Rando m As #1 Put #1，i ，Ksc

　　D."..\Datal .txt"For Rando m As #1 Put #1，Y ，Ksc

　　22、下列程序运行时输出的结果是(　　)。

　　Option Base 1

　　Const a=10

　　Private Sub Form_Click0

　　Di mx(a)As Integer

　　k =-1

　　For i =1To a

　　x(i)=i*k

　　k =(-1)*k

　　Next i

　　For i =1To 10

　　Print x(i)

　　Next i

　　End Sub

　　A.1 3 5 7 9 10

　　B.-1-3-5-7-9

　　C.-1 2-3 4-5 6-7 8-9 10

　　D.1-2 3-4 5-6 7-8 9-10

　　23、某人为计算n!(O

　　Private Function fun(n As Integer)As Long

　　Di m P As Long

　　P=l

　　For k =n -1To 2Step -1

　　p =p*k

　　Next k

　　fun =p

　　End Function

　　在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是(　　)。

　　A.把p =1改为p =11

　　B.把For k =n -1To 2Step -1改为For k =1To n -1

　　C.把For k =n -1To 2Step -1改为For k =1To n

　　D.把Fo rk --n -1To 2Step -1改为For k =2To n

　　24、要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是(　　)。

　　A.设置BorderStyle 的值为Fi xed Tool Wi ndow

　　B.设置BorderStyle 的值为Sizable Tool Wi ndow

　　C.设置BorderStyle 的值为Fi xed Dialog

　　D.设置BorderStyle 的值为Sizable

　　25、设在窗体上有一个文本框，然后编写如下的事件过程：

　　Private Sub Text1_KeyDown (KeyCode As Integer ，Shift As Integer)

　　Const Alt =4

　　Const Key_F2=&H71

　　altdown %=(Shift And Alt)>0

　　f2down %=(KeyCode =Key_F2)

　　If altdown %And f2down %Then

　　Text1.Text ="abl"

　　End If

　　End Sub

　　程序运行后，清除文本框中原有内容，如果按Shift +F2键，则在文本框中显示的是( )。

　　A.Alt +F2

　　B.abl

　　C.随机出几个数

　　D.不发生变化

　　26、在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Co mmand1)，然后编写下列事件过程：

　　Private Sub Co mmand1_Click()

　　x=0

　　DO While x<50

　　x=(x+2)*(x+3)

　　n =n +l

　　Loop

　　Text1.Text =Str(n)

　　Text2.Text =Str(x)

　　End Sub

　　程序运行后，单击命令按钮，在两个文本框中显示的值分别为(　　)。

　　A.1和0

　　B.2和72

　　C.3和50

　　D.4和168

　　27、下列叙述中错误的是(　　)。

　　A.软件测试的目的是发现错误并改正错误

　　B.对被调试的程序进行"错误定位"是程序调试的必要步骤

　　C.程序调试通常也称为Debug

　　D.软件测试应严格执行测试计划，排除测试的随意性

　　28、一个工程必须包含的文件的类型是( )。

　　A.*.vbp*.frm*.frx

　　B.*.vbp*.cls*.bas

　　C.*.bas*.ocx*.res

　　D.*.frm*.cls*.bas

　　29、在文本框中输入字符时，通过( )事件过程可以得到字符的ASCII 码值。

　　A.Change

　　B.GotFocus

　　C.KeyPress

　　D.LostFocus

　　30、在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是(　　)。

　　A.并

　　B.交

　　C.投影

　　D.笛卡儿乘积