Print i End If Next i End Sub
29、在窗体上画一个命令按钮Command1。如下程序的功能是将一个个位数转换成以二进制形式的字符串，如果长度小于4，将在其前面补\至4位。
Private Sub Command1_Click( ) Dim t As Integer,b As String,k As Integer t=InputBox(\输入一个8\Do Until t<1 k=t Mod 2 b=CStr(k)& b t=t\\2 Loop
If Len(b)< 4 Then b=\t=______ Else t=b End If Print t End Sub
程序运行后，单击命令按钮，在输入框输入数值\，则窗体上显示的内容是_____。
30、若一个数的各因子之和正好等于该数本身，则该数称为完全数。如6的因子为1，2，3，其和为6，则6为完全数。编程找出1～100之间的所有完全数。完善下列程序。
Private Sub Command1_Click( )
Dim a As Integer, b As Integer, c As Integer, i As Integer For a = 2 To 100 ____(1)_____ For b = 2 To a-1 If a Mod b = 0 Then c = b+c End If Next b
If___(2)___Then Print a End If Next a End Sub
31、找出1～10000之间的同构数。所谓同构数，是指此数的平方数的最后几位与该数相等。 例如，25的平方为625，25是同构数。完善下列程序。程序代码如下： Private Sub Command1_Click( ) Dim i As Integer, y As Long For x = 1 To 1000
y = x * x If ___(1)___ Then Print x End If Next x End Sub
32、下面和程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，请完善下面程序。
Option Explicit
Private Sub Command1_Click( ) Dim s As String,k As Integer
Dim r As String,i As Integer,t As String s=“aa11bb22Cc33” For i=1 To Len(s) t=_____(1)_____
If t>=“a”And t<=“z”Or t>=“A”And t<=“Z”Then r=r & t End If Next i Print r End Sub
33、求满足如下条件的三位数，它除以11所得的商等于各位数字的平方和。例如： 550/11=50=5*5+5*5+0。完善下列程序。程序代码如下： Private Sub Form_Click( )
Dim a As Integer,b As Integer,c As Integer,n As Integer,j As Integer For a= __(1)__ For b=0 To 9 For c=0 To 9 n= __(2)__
If (n Mod 11 =0)And(n\\11=a*a+b*b+c*c)Then Print n;\；a*a;b*b;c*c End If Next c Next b Next a End Sub
34、用以下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序，请在______处填上正确内容。
Private Sub Command1_Click( ) For a =1 To 50 For b =a To 50 c=Sqr(a^2+b^2)
If____________Then Print a;b;c Next b
Next a End Sub
35、有如下程序：
Private Sub Command1_Click( ) x=5 e=Sgn(x)+1 If e=1 Then y=x*x+1 ElseIf e=2 Then y=5*x+5 Else y=0 End If Print y End Sub
运行时输出的结果是 ______ 。
36、以下程序可计算自然数e的值，要求精确到10^(-15)请将程序补充完整。已知e的计算公式为e=1+1/1!+1/2!+...+1/n!。
Private Sub Command1_Click() _____ n=0:term=1:t=1 Do n=n+1 t=t/n ____
Loop While t>1.0E-15 Text1.Text=term End Sub
37、下面程序的功能是统计随机产生的10个三位正整数中偶数与奇数的个数，并求出该10个数的总和。请将程序补充完整。
Option Explicit
Private Sub Form_Click() Dim x As Integer, s1 As Integer Dim n1 As Integer, i As Integer Randomize For i = 1 To 10 x= __(1)____ Print x;
If x Mod 2 = 0 Then ___(2)___ else n2 = n2 + 1 End If s=s+x
Next i Print
Print\奇数个数：\偶数个数为：\和为\End Sub
38、有如下程序：
Private Sub Command1_Click( ) a=Val(InputBox(\请输入\b=Val(InputBox(\请输入\x=a+b
If a>b Then x = a-b Text1.Text=x End Sub
运行后，从InputBox对话框中连续输入3和4，文本框中显示的是 _________ ；若连续输入4和3，文本框中又显示的是_________。
39、下列程序计算１！，３！，５！，７！的值。完善下列程序。 Private Sub Command1_Click( ) for x = 1 To 7 Step 2 _______ For y = 1 To x fact = fact * y Next y
Print x; \Next x End Sub
40、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉，其麦子颗粒数的计算公式为：
sum = 1+2+2^2+2^3+2^4+2^5+...+2^63，相应的计算程序如下，请将程序补充完整。 Private Sub Command1_Click( ) Dim x As Single, y As Single Sum = 0 For n = 0 To 63 x =__________ Sum = sum + x Next n
Print \麦子的总颗粒数为：\；Sum End Sub
41、输入一个三位的正整数，将之反向输出。如输入123，则输出321，完善下列程序。 Private Sub Command1_Click( )
Dim a As Integer, b As Integer, c As Integer, m As Integer m = InputBox(\输入一个正整数\a = m\\100 b = (m-a * 100)\\10 c = ___(1)___
MsgBox \结果=\
End Sub
42、火车原以均匀速度v0(km/h)行驶，从t = 10min时开始匀加速度运行，加速度为a(km/h2)。问经过t=50mm时火车行驶的距离(m)(从t =0算起)。要求打印出的数值取小数点后二位，对第三位按四舍五入处理。补充如下程序。
Private Sub Command1_Click( ) Dim v0 As Single, v As Single, s As String v0=InputBox (\输入初速度a\，1) v0 = v0 * 1000/60/60 a = a * 1000/3600^2 t1 = 10 *60 t2 = 50 *50 t = ___(1)____ s = v0 * t2+0.5 *a * t * t s = Int (s * 100 + 0.5) Print \End Sub
43、下面程序的功能是统计随机产生的10个三位正整数中被5整除数的个数，并求出这些数的总和。完善程序
Option Explicit
Private Sub Form_Click( ) Dim x As Integer, sl As Integer Dim n1 As Integer,i As Integer Randomize For i = 1 To 10 x =____(1)_____ Print x;
If x Mod 5 = 0 Then ___(2)_____ sl = sl+x End If Next i
Print \被5整除数的个数\和为\End Sub
44、本程序用于验证一个自然数N的立方等于N个连续奇数之和，其中最大的奇数P=N*（N+1）-1 例如，43=19+17+13，最大奇数为19。
当程序执行后，分别给对话框输入4和6时，问计算结果分别为__(1)_____和___(2)___ 。 Private Sub Command1_Click( ) Dim s As String
n = InputBox(\输入一个自然数\num = n * n * n p = n * (n + 1)-1 x = p k = 1
Do Until x = num