当前位置: 答题翼 > 问答 > 计算机类考试 > 正文
目录: 标题| 题干| 答案| 搜索| 相关
问题

运行下列程序:Private Sub form_Click()Dim sl As String, s2 As Strings1 = "1234&quo


运行下列程序:

Private Sub form_Click()

Dim sl As String, s2 As String

s1 = "1234"

m = 0

For i = 3 To 1 Step -1

m = m + 1

s2 = fun1(s1, m)

Debug.Print s2;

Next i

End Sub

Private Function fun1(x, y) As String

fun1 = Right(x, y)

End Function

单击窗体后,则在立即窗口内显示结果是()。

A.1234

B.4321

C.434234

D.1111

参考答案
您可能感兴趣的试题
  • 运行下列程序:Private Sub form_Click()x = InputBox("请输入一个数:")Select Cas

  • 运行下列程序:Private Sub form_Click()s = InputBox("请输入一个字符A:")Select

  • 运行下列程序:Private Sub Command1_Click()s$ = "abcdefabcdefabcdef"k = InStr(

  • 运行下列程序:Private Sub Command1_Click()x = "祝你成功"y = "1234"F

  • 运行下列程序:Private Sub form_Click()x$ = "123": y$ = "abc"n = Len

  • 运行下列程序:Private Sub Form_Click()a = 3t = InputBox("请输入一个整数")Sele