1.输入两个数,打印交换前和交换后的数教程.docVIP

1. 输入两个数，打印交换前和交换后的数 Private Sub Command1_Click() Dim m, n, t As Integer m = InputBox(输入m) n = InputBox(输入n) Picture1.Print 交换前: Picture1.Print m=; m, n=; n t = m: m = n: n = t Picture1.Print 交换后: Picture1.Print m=; m, n=; n t = m: m = n: n = t End Sub 2. 求函数值b，其中 Dim a As Single, b As Single a=Val(Text1) If a100 Then b=a-100 End If Text2=b 3. 求函数值b，其中 Dim a As Single, b As Single a=Val(Text1) If a100 Then b=a-100 Else b=100-a End If Text2=b 4. 求函数值b，其中 Dim a As Single, b As Single a=Val(Text1) If a100 Then b=a-100 ElseIf a = 100 Then b=100 Else b=100-a End If Text2=b 5. 求分段函数b的值，其中 Dim a As Single, b As Single a=Val(Text1) c=Val(Text3) If a100 Then If c100 Then b=Sqr(a^2+c^2) Else b=Sqr(a^2-c^2) End If Else b=a End If Text2=b 6. 已知x,y,z三个数，使得xyz。 If xy Then t=x：x=y：y=t End If If yz Then t=y：y=z：z=t If xy Then t=x：x=y：y=t End If End If 7. 根据输入的四则运算符，对随机产生的两个数进行相应运算并显示结果。 a=Int(Rnd*100)产生0~99的随机整数 b=Int(Rnd*100) f=Text1.Text Select Case f Case + c=a+b Case - c=a-b Case * c=a*b Case / c=a/b Case Else MsgBox 输入错误！ End Select Text2=c 8. s=1+2+3+4+…+100，计算s的值。 Private Sub Form_Click() Dim i As Integer, s As Integer s=0 i=0 For i=1 To 100 For语句 s=s+i Next i Print s End Sub 9. 判断由用户输入的数n是否是素数。 Private Sub Form_click() Dim n As Integer, i As Integer n=InputBox(请输入一个大于2的整数：) For i=2 To Sqr（n） If (n Mod i)=0 Then MsgBox n 不是素数 Exit Sub 找到一个能整除n的数则不需再继续判断，结束程序 End If Next i MsgBox n 是素数 循环正常退出 End Sub 10. 求ln2的近似值，误差范围在10-5内。已知级数，当|| 10-5时达到精度要求。 Private Sub Form_Click() Dim a As Single,s As Single,n As Long n=1 Do a=(-1)^(n-1)*(1/n) 第n项 s=s+a 前n项和 n=n+1 Loop While Abs(a)0.00001 Println2=s End Sub 11. 求100以内所有素数。 Private Sub Form_Click() Dim i%, j%, f%, a% For i=2 To 100 a=Sqr(i) For