题目内容

执行下面程序，第一行输出结果是 7 ，第二行输出结果是 8 。 Option Explicit Private Sub Form_Click() Dim A As Integer A=2 Call Subl(A) End Sub Private Subl(x As Integer) x=x2+1 If x＜10 Then Call Subl(x) End If x=x2+1 Print x End Sub 在Select case 结构中，使用“To表达式”来指定一个范围时，必须把的值写在前面。

查看答案

搜索结果不匹配？点我反馈

更多问题

设有如下程序： Private Sub Form_Click() Dim a As Integer,s As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是 5 。程序运行后，单击窗体，输出结果是 6 。

执行下面程序，第一行输出结果是 7 ，第二行输出结果是 8 。 Option Explicit Private Sub Form_Click() Dim A As Integer A=2 Call Subl(A) End Sub Private Subl(x As Integer) x=x2+1 If x＜10 Then Call Subl(x) End If x=x2+1 Print x End Sub 文件根据数据性质，可分为文件和文件。

执行下面程序，第一行输出结果是 7 ，第二行输出结果是 8 。 Option Explicit Private Sub Form_Click() Dim A As Integer A=2 Call Subl(A) End Sub Private Subl(x As Integer) x=x2+1 If x＜10 Then Call Subl(x) End If x=x2+1 Print x End Sub 设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i AS Integer arr1=Array(12,435,76,-24,78,54,866,43) Min=arr1(1) For i=2 To 8 If arr1(i)＜Min Then______ Next i Print "最小值是:"; Min End Sub

执行下面程序，第一行输出结果是 7 ，第二行输出结果是 8 。 Option Explicit Private Sub Form_Click() Dim A As Integer A=2 Call Subl(A) End Sub Private Subl(x As Integer) x=x2+1 If x＜10 Then Call Subl(x) End If x=x2+1 Print x End Sub