Private Sub Command1_Click() Dim x %,y% x=12:y=34 call F1(x,y) Print x,y End Sub
18.设执行以下程序段时依次输入11、33、55,执行结果为(11)
Dim a(4) As Integer, b(4) As Integer
For K = 0 To 2
a(K + 1) = Val(InputBox(\请输入数据\
b(3 - K) = a(K + 1)
Next K
Print b(K)
19.'【程序设计】
'题目：对字符串进行加密处理。
' 加密过程:
' 将每个字母C减一序数K＝5，即 c=chr(Asc(c)-5), ' 这时 \→\， \→\，\→\… ' 当减序数后的字母小于\或\则 c=Chr(Asc(c)-k +26) 解答：Dim i As Integer
Dim strp As String, strT As String, iA As String
Dim nl As String i = 1: strp = \ nl = Len(RTrim(strI)) Do While (i <= nl)
strT = Mid$(strI, i, 1) '取第i个字符
If (strT >= \Then
iA = Asc(strT) + 5
If iA > Asc(\Then iA = iA - 26
strp = strp + Chr$(iA)
ElseIf (strT >= \And strT <= \Then
iA = Asc(strT) + 5
If iA > Asc(\iA - 26
strp = strp + Chr$(iA) Else
strp = strp + strT End If i = i + 1 Loop
EnyStr = strp
20.题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。
'要求：①不得添加任何变量；不得删除或添加行；不得更改行的顺序
' ②只更改\标记下的第一行
'------------------------------------------------
Private Sub Form_Click()
Dim N As Integer, Sum As Integer, S1 As String, S2 As String
Dim i As Integer, Ch As String Sum = 0
N = InputBox(\输入整数n\ S1 = Str(N)
'**********ERROR********** S1 = RTrim(S1)
For i = 1 To Len(S1)
'**********ERROR********** Ch = Mid(N, i, 1)
'**********ERROR********** Sum = Val(Ch)
Next i
Print \该整数的各位数之和是：\Sum
End Sub
答案Sum = Sum + Val(Ch)
Sum =Val(Ch)+Sum 21. '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，
' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，
' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数
' 据错误。X、N都是由用户输入。
'要求：①不得添加任何变量；不得删除或添加行；不得更改行的顺序