以后的以后歌曲庄心妍:hasfajskvgfdljfksdJA2

26．任意输入两个正整数，求较大数除以较小数的余数。
Dim A As Integer,B As Integer,T As Integer
A = InputBox("输入一个正整数")
B = InputBox("输入一个正整数")
If __A < B__________ Then
T = A
A = B : B = T
End if
Print "余数："；A Mod B
27．下面程序是根据梯形的上底（变量名为A）、下底（变量名为B）和高（变量名为H），计算面积，上底、下底和高从键盘输入，请完成下列程序。
Dim A, B, H As Single
A = InputBox("请输入上底长度")
B = InputBox("请输入下底长度")
C = InputBox("请输入高度")
S = ___（A + B）* H________ / 2
Print "梯形面积"
28．从键盘输入一个数，运行后的打印结果是“7，8”，原始输入的数是____78_______。
Prinvate Sub Command2_Click()
Dim N As Integer
N = InputBox("输入一个二位数")
Print N \ 10; ","; N Mod 10
End Sub
29．以下程序用来计算1～80中偶数的平方和，请完成程序段。
Dim S as Long
S = 0
For __I = 2 To 80 step 2___
S = S + I * I
Next I
Print "和为："；S
30．从键盘输入一个数为：41，写出运行后的打印结果。____1天17小时____
Private Sub Command5_Click()
Dim T As Integer
T = InputBox("输入时间（小时）：")
Print T\24"天"T Mod 24；"小时"
End Sub
31．下列程序段最后y比x的值大4，原始的x值是多少是？
Dim x As Integer, y As Integer
x = ________5_________
y = x - 5
y = y * 2
y = y / 5
y = y + 9
Print "y=";y, "x=";x
32．1～100之间的所有被5整除的数之和。
Dim I As Integer,S As Integer
S = 0
For I = 5 _to 100 step 5________
S = S + 1
Next
Print "S=";S
33．如果下列程序中输入的字符为2，输出将是____2_________。
Dim ch As String
ch = InputBox("请输入一个字符"，"输入窗口")
If (ch>="A" and ch<="Z") then
ch = Lcase(ch)
Else if (ch>="a" and ch<="z") then
ch = Ucase(ch)
End if
Print ch
34．计算分段函数：当x＜0时y取0；当0≤x＜1时取1；当x≥1时y取2。
Dim x As Integer
X = InputBox("输入X：")
Select Case x
Case Is < 0 ; y = 0
Case Is < 1 ; y = 1
Case Else ; ___y = 2______
End select
Print "Y=";y
35．从键盘输入一个数为：56，写出运行后的打印结果。_ __5, 6______
Private Sub Command2_Click()
Dim N as Integer
N = InputBox("输入一个二位数")
Print N \ 10; ","; N mod 10
End Sub