未分类题

在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：
Private Sub Command1_Click（）
Dim a（10）As Integer
Dim x As Integer
For i=1 To 10
a（i）=8+i
Next
x=2
Print a（f（x）+x）
End Sub
Function f（x As Integer）
x=x+3
f=x
End Function
程序运行后，单击命令按钮，输出结果为（）。
A．12
B．15
C．17
D．18

A.12
B.15
C.17
D.18

【参考答案】

D

Function过程中的x
(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

<上一题目录下一题>

热门试题

未分类题

在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click（） Dim a（10）As Integer Dim x As Integer For i=1 To 10 a（i）=8+i Next x=2 Print a（f（x）+x） End Sub Function f（x As Integer） x=x+3 f=x End Function 程序运行后，单击命令按钮，输出结果为（）。A．12 B．15 C．17 D．18

未分类题

窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（） Call CheckInput（Text1，500） End Sub Private Sub Text2_LostFocus（） Call CheckInput（Text2，1000） End Sub Sub CheckInput（t As ?，x As Integer） If Val（t.Text）>x Then MsgBox'请重新输入!' End If End SubA．Text B．SelText C．Control D．Form

相关试题