单击命令按钮执行下列程序，其输出结果是()。<br>Private Sub Command1_Click()<br>Dim a As Integer,b As Integer,c As Integer<br>a=3<br>b=4<br>c=5<br>Prim SecProc(c,b,A)<br>End Sub<br>Function FirProc(x As Integer,y As Integer,z As Integer)<br>FirProc=2*x+y+3*z<br>End Function<br>Function SecProc(x As Integer,y As Integer,z As Integer)<br>SecProc=FirProc(z,x,y)+x<br>End Function

A. 20
B. 22
C. 28
D. 30

如果在C盘当前文件下已存在名称为studata.dat的顺序文件，那么执行语句Open "C:\studata.dat" For

A. 删除文件中原有内容
B. 保留文件中原有内容，并在文件尾填加新内容
C. 保留文件中原有内容，并在文件头填加新内容
D. 以上均不对

下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。<br>Private Sub Form_Click()<br>Dim n as integer,s as integer,I as integer,k as integer<br>s=0<br>k=0<br>n=inputbox(″请输入n的值)<br>For i=1 to 100<br>k=k+1<br>s=s+I<br>【 】<br>Next i<br>Print s<br>End Sub

设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 Te1Num As

执行如下两条语句后，窗体上显示的是 。a=9.8596print Format(a,"$00,00.00")A．0,009.86 B．$9.86 C．9.86 D．$0,009.86

（34）下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1,2,3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Dim i As Integer Dim Ksc As Ang Open Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) ___________ Next i Close #2 End SubA."‥\Datal.txt"For Random As#1 Len=10 Put#1,i,KscB."‥\Datal.txt"For Random As#1 Len=10 Put#1,Y,Ksc C."‥\Datal.txt"For Random As#1 Put#1,i,KscD."‥\Datal.txt"For Random As#1 Put#1,Y,Ksc

（5）Jackson方法是一种面向的结构化方法。

（8）在程序的空白处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除 Do While List2.ListCount _____________________ List2.RemoveItem 0 Loop

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click() n = Val (Text1.Text) For i = 2 To n For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j ＞ Sqr (i) Then Print i Next iEnd Sub 该事件过程的功能是。A．输出n以内的奇数B．输出n以内的偶数C．输出n以内的素数D．输出n以内能被j整除的数

（6）为了选择多个控件，可以按住键，然后单击每个控件。