单项选择题

下列程序运行后的输出结果是( )。
Function Fun(n)
x=n*n
Fun=x-11
End Fundion
Private Sub Command1_Click()
For k=1 To 2
y=Fun(k):Print y
Next
End Sub

A) -10 -7
B) 10 8
C) 1 3
D) 0 4
<上一题 目录 下一题>
热门 试题

单项选择题
下列说法正确的是( )。
A) 在Visual Basic中的对话框分为两种类型：预定义对话框和自定义对话框
B) 自定义对话框是由用户根据自己需要定义的
C) 预定义对话框是用户在设置程序代码后定义的
D) MsgBox函数是用户的自定义对话框的函数
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer,_ Shift As Integer,X As Single,Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“”) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示—个输入对话框，如果在对话框中输入25，则程序的执行结果为( )o
A) 输出0
B) 输出25
C) 输出45
D) 无任何输出
相关试题