填空题
执行下面程序,第一行输出结果是
,第二行输出结果是
。
Option Explicit
Private Sub Form_Click()
Dim A As Integer
A=2
Call Subl(A)
End Sub
Private Subl(x As Integer)
x=x*2+1
If x<10 Then
Call Subl(x)
End If
x=x*2+1
Print x
End Sub
【参考答案】
47
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
设有如下程序,查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。 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
点击查看答案&解析
填空题
在程序的每个空白处填写一条适当的语句,使程序完成相应的操作。程序实现的功能是:窗体上有文本框Text1和若干复选框,其中复选框Check1用于设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下: Private Sub Checkl_Click() If ______ Then Text1.FontUnderline=True Else If ______ Then Text1.FontUnderline=False End If End Sub
点击查看答案&解析
相关试题
在窗体上画一个文本框(其Name属性为Text1...