以下程序运行后，单击按钮输出结果是( )。 　　Private Sub Commandl_Click( ) 　　　　Dim x As Integer，y As Integer，z As Integer 　　　　X=4：y=2： Z=3 　　　　Call Gopd(x，x，z) 　　　　Print x；X；Z 　　　　Call Gopd(x，y，y) 　　　　Print x；y；y 　　End Sub 　　Private Sub Gopd(x As Integer，y As Integer，z As Integer) 　　　　X=3 * Z + 1 　　　　y=2 * z 　　　　z=x + y 　　End Sub

A:6　6　12 7 11 11 B:8　5　10 5 11 11 C:9　6　12 9 10 15 D:8　10　10 5 9 10

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如 下事件过程： 　　Private Sub Commandl_Click（　） 　　　　CommonDialogl，Flags=vbOFNHideReadOnly 　　　　CommontDialogl．Filter="All Files(*．*)|*．*|Text Files (*.*)|*．txt|"_ 　　　　　　　　　　　　　　　　　& Batch Files (*．bat) |*．bat" 　　　　CommonDialogl．Filterlndex=1 　　　　CommonDialogl．Showopen 　　　　MsgBox CommonDialogl．FileName 　　End Sub 　　程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是( )。

A:All Fries(*.*) B:Text Files(*.*) C:Batch Files(*．bat) D:All Files (*．*) E:Text Files(*．*)

在窗体上画一个命令按钮，然后编写如下事件过程： 　　Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer) 　　　　Dim i AS Integer 　　　　For i=LBound(oldCopy( ))To UBound(oldCopy( )) 　　　　　newCopy(i)=oldCopy(i) 　　　　Next i 　　End Sub 　　Private Sub Command1 _ Click( ) 　　　　Dimm(10) As Integer，n(10)As Integer 　　　　For i=1 To 10 　　　　　m(i) =i*i 　　　　Next i 　　　　Call BTC(m，n) 　　　　Print n(5) 　　End Sub 　　程序运行后，单击命令按钮输出结果为( )。

B:2 C:10 D:25

现有如下程序： Private Sub Command1_Click（　） s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是( )。

A:38 B:49 C:61 D:70

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click（　） S＄=InputBox("请输入一个字符串") Text1.Text=S＄ End Sub Private Sub Text1_Change（　） Label1.Caption=UCase(Mid(Text1.Text，7)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【 】。

下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除， 果能则输出该数及平方值。请填空。 　　Private Sub Command1_Click（　） 　　　Dim numX As Integer 　　　numX = Val (InputBox("请输入一个整数")) 　　　If【 】Then 　　　　　Form1．Print【 】 　　　End If 　　End Sub

numX Mod 2 = 0 And numX Mod 5=0 And numX Mod 7=0

下列事件过程的功能是：建立一个名为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 　　　　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 　　　　Clise #2 　　End Sub

“c:/Datal．txt”For Random As #2 Len=10

以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输 入负数时结束输入，输出结果。请补充完整下列程序段。 　　Dim x，amax,amin As Single 　　x=InputBox("Enter a score") 　　amax=x 　　amin=x 　　Do While【 】　 　　　If x>amax Then 　　　　amax=x 　　　End If 　　　If【 】Then 　　　　amin=x 　　　End If 　　　x=InputBox("enter a score") 　　Loop 　　Print"max="；amax，"min="；amin

函数Str$(256．36)的值是【 】。