t=m
m=n
n=t
r=mModn
EndIf
DoWhiler<>0
m=n
n=r
r=mModn
Loop
Text3.Text=n
EndSub
14.分别计算y=(5!
+7!
)/3!
和s=1!
+2!
+…+10!
的值。
(使用函数子程序进行编程)
PublicFunctionjax(n%)AsDouble
DimtAsDouble
DimiAsDouble
t=1
Fori=1Ton
t=t*i
Next
jax=t
EndFunction
PrivateSubCommand1_Click()
Text1.Text=(jax(5)+jax(7))/jax(3)
EndSub
PrivateSubCommand2_Click()
DimsAsDouble
DimnAsInteger
s=0
Forn=1To10
s=s+jax(n)
Next
Text2.Text=s
EndSub
16.利用inputbox输入一个正整数,并判断其是否为素数。
PrivateSubForm_Click()
Dimx!
i!
x=InputBox(请输入一个数)
Fori=2Tox-1
IfxModi=0Then
F=1
ExitFor
EndIf
Nexti
IfF=1Then
Label1.Caption="你输入的数是"&x&",该数不是素数。
"
Else
Label1.Caption="你输入的数是"&x&",该数是素数。
"
EndIf
EndSub
2.设计文本编辑器应用程序1A2.vbp。
界面如图1-1-2所示。
其中,“文件”菜单中有2个子菜单“输入”和“退出”;“字体外观”菜单中有3个子菜单“粗体”、“斜体”和“下划线”;“字体名称”菜单中有3个子菜单“宋体”、“华文行楷”和“隶书”;“字体大小”菜单有4个子菜单“12”、“18”、“24”和“28”。
rivateSubcuti_Click()
=Not
EndSub
PrivateSubh_Click()
="华文行楷"
EndSub
PrivateSubl_Click()
="隶书"
EndSub
PrivateSubs_Click()
="宋体"
EndSub
PrivateSubshuru_Click()
List1.AddItem"大学计算机基础"
EndSub
PrivateSubtuichu_Click()
List1.Clear
EndSub
PrivateSubxiahuaxian_Click()
=Not
EndSub
PrivateSubxieti_Click()
=Not
EndSub
PrivateSubz_Click()
=12
EndSub
4
PrivateSubCommand1_Click()
DimxAsInteger
x=Text1.Text
IfOption1.Value=TrueThen
Text2.Text=Sin(x*3.14/180)
EndIf
IfOption2.Value=TrueThen
Text2.Text=Cos(x*3.14/180)
EndIf
IfOption3.Value=TrueThen
Text2.Text=Tan(x*3.14/180)
EndIf
EndSub