阅读下面的程序代码： Private Sub Command1_Click() Print fun(748639,5) End Sub Private Function fun(x As Long, a As Integer) As Integer Dim n As Long n=1 Do n=n*10 a=a-1 Loop Until a=0 fun=Int((x Mod n)/(n/10)) End Function 此程序代码运行后的输出是______。
A. 3
B. 4
C. 48639
D. 74863
查看答案
下列过程定义正确的是______。
A. Private Function fun(x As Integer)fun=x+1End Function
B. Private Sub pro(x As Integer) as IntegerPrint xEnd Sub
C. Private Sub pro(x As Integer)pro=x+1End Sub
D. Private Function fun(x As Integer) As IntegerPrint xfun="True"End Function
Visual Basic 6.0不支持的图形文件是______。
A. jpg
B. psd
C. bmp
D. ico
下列数组定义中正确的是______。
A. Dim arr%(-5 To -2,5)
B. Dim arr%(-2,0 To 5)
C. Dim arr(8,3)%
Dim arr(-1 To -3)
下列语句中错误的是______。
A. x=a+1
B. a+1=x
C. If x=a+1 Then Print x
D. If a+1=x Then Print x
微信支付 
支付宝支付