运行下面的程序，单击窗体后，从键盘上输入字符串"6"，窗体上显示的输出结果为________。PrivateSubForm_Click()DimnAsIntegerDims1AsStrings1=InputBox("输入一个字符串")n=Val(s1)PrintFact(n)EndSubPrivateFunctionFact(mAsInteger)AsLongDimsAsLongIfm=1Thens=1Elses=Fact(m-1)*mEndIfFact=sEndFunction
举一反三
- 下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是( ) Private Sub Command1_Click() Dim count(25)As Integer,ch As String ch=Ucase(InputBox("请输入字母字符串")) For k=1 To Len(ch) n=Asc(Mid(ch,k,1))-Asc("A") If n＞＝0 Then count(n)一count(n)+1 End If Next k m=count(0) For k=1 To 25 If m＜count(k) Then m=count(k) End If Next k Print m End Sub A: 0 B: 1 C: 2 D: 3
- 【单选题】strncp(字符数组1,字符串2)有什么作用() A. 把字符串2接到字符数组1后面 B. 将字符串2复制到字符数组1中去 C. 将字符串2中前面n个字符复制到字符数组1中去 D. 比较字符数组1和字符串2
- 18.4______ (字符数组名1，字符数组名2)把字符数组2中的字符串连接到字符数组1 中字符串的后面，并删去字符串1后的串标志“\0”。
- 设有以下函数过程: Function fact(n As Long) If n = 1 Then fact = 1 Else fact = n * fact(n - 1) End If End Function 在窗体上画一个命令按钮和两个文本框，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Long, result As Long n = Val(Text1.Text) result = fact(n) Text2.Text = Str(result) End Sub 程序运行时，如果在文本框 Text1 中输入数据 5 后，单击命令按钮 Command1 ，则在文本框 Text2 上输出的结果为________
- 在窗体上有一命令按钮Command1,其Click事件代码如下: Private Sub Command1_Click() Dim a%, b%, i%, n% For i = 1 To 10 n = InputBox("请输入一个整数", "输入数据框", 2) If n Mod 2 = 0 Then a = a + 1 Else b = b + 1 End If Next i MsgBox ("运行结果a=" & str(a) & ", b=" & str(b)) End Sub