1、在实际工作中需要判断是否满足某种条件的问题在实际工作中需要判断是否满足某种条件的问题很多。很多。例：把例：把20，49，50，8，24，14中能被中能被7整除的整除的数挑出来。数挑出来。把平均成绩把平均成绩80分以上同学的姓名打印出来。分以上同学的姓名打印出来。Y=02*X （当（当X50）50*02+（X-50）*03 （当（当X50）4.1.1 4.1.1 单行结构单行结构IfIf语句语句语法格式为语法格式为:If If 条件表达式条件表达式 ThenThen语句块语句块1 Else1 Else语句块语句块2 2 例：例：IF ab THEN q=a :a=b :b=qIF a=60 Th
2、en grade=及格 Else grade=不及格 Text2.Text=gradeEnd SubPrivate Sub Command2_Click()EndEnd Sub【练习【练习4.14.1】输入两个数，输出其最大值。】输入两个数，输出其最大值。语法格式为：语法格式为：If 条件表达式条件表达式 Then 语句块语句块1Else 语句块语句块2End If说明：说明：(1)(1)使用块结构使用块结构IfIf语句时，在语句时，在ThenThen后一定要回车，后一定要回车，在语句最后一定要以在语句最后一定要以End IfEnd If结束。结束。(2)(2)块结构块结构IfIf语句与单行结
3、构语句与单行结构IfIf语句功能一样，只语句功能一样，只是书写形式不同。是书写形式不同。Private Sub Form_Click()Static flag As Integer Cls FontSize=20 If flag=0 Then ForeColor=vbRed Print 欢迎新同学欢迎新同学 flag=1 Else ForeColor=vbBlue Print 欢迎新同学欢迎新同学 flag=0 End IfEnd Sub例例4-14-1编程编程:当在窗体上单击当在窗体上单击,屏幕上会以红色和蓝色交替屏幕上会以红色和蓝色交替 显示显示”欢迎新同学欢迎新同学“例例4-24-2编程
4、编程:创建一个幸运数字投币机的游戏程序创建一个幸运数字投币机的游戏程序(LUCKY SEVEN),(LUCKY SEVEN),游戏规则游戏规则:单击单击”旋转旋转”按钮按钮 ,在右边的标签中出现在右边的标签中出现3 3个数字个数字,当这当这3 3个数字中有一个个数字中有一个为为”7”7”时时,标签下方就会显示一张图片。标签下方就会显示一张图片。Private Sub Command1_Click()Randomize Image1.Visible=False Label1.Caption=Int(Rnd*10)Label2.Caption=Int(Rnd*10)Label3.Caption=I
5、nt(Rnd*10)If Label1.Caption=7 Or Label2.Caption=7 Or Label3.Caption=7Then Image1.Visible=True End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub【例【例4-34-3】设计界面如图所示，用文本框】设计界面如图所示，用文本框Text1Text1输入输入x x的值，单击按钮时，在文本框的值，单击按钮时，在文本框Text2Text2中显示出中显示出x x的的绝对值。绝对值。“求绝对值求绝对值”按钮按钮Command1Command1的单击事件过程如下：的单击
6、事件过程如下：Private Sub Command1_Click()Dim x As Single x=Val(Text1.Text)If x 0 Then Text2.Text=x Else Text2.Text=-x End IfEnd Sub 【例【例4.24.2】修改修改3.83.8节实训内容第节实训内容第1 1题，在计算面积前，题，在计算面积前，先判断所输入的三角形三边长是否构成三角形，若构先判断所输入的三角形三边长是否构成三角形，若构成三角形则计算面积，否则提示成三角形则计算面积，否则提示“不构成三角形不构成三角形”。1 1）界面设计）界面设计2)2)代码分析与设计代码分析与设计
7、 判断三角形的三边长是否构成三角形的条件是：任意两边之和判断三角形的三边长是否构成三角形的条件是：任意两边之和大于第三边，即大于第三边，即a a+b b c c And And a a+c c b b And And b b+c c a a。程序的源代码如下：程序的源代码如下：Private Sub Command1_Click()Dim a As Single,b As Single,c As Single Dim s As Single,l As Single a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If a+b c And a
8、+c b And b+c a Then l=(a+b+c)/2 s=Sqr(l*(l-a)*(l-b)*(l-c)Text4.Text=s Else Text4.Text=不构成三角形不构成三角形 End IfEnd Sub【练习【练习4.24.2】完善】完善3.83.8节实训内容第节实训内容第5 5题，执行相除运题，执行相除运算前先判断除数是否为算前先判断除数是否为0 0，若除数不为，若除数不为0 0，则两数，则两数相除，否则向用户提示相除，否则向用户提示“除数为除数为0”0”。【例【例4.34.3】输入输入3 3个整数，求其最大值。个整数，求其最大值。1)1)界面设计界面设计2)代码分析与
9、设计代码分析与设计程序的源代码如下：程序的源代码如下：Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer Dim max As Integer 用于存放最大值的临时变量用于存放最大值的临时变量 a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)max=a 假设假设a最大最大 If max b Then 与与b比较，确认比较，确认max是否最大是否最大 max=b 若若b比比max大大,则将则将b赋给赋给max End If 以上为块结构以上为块结构If语
10、句语句 If max c Then max=c 与与c比较，确认比较，确认max是否最大是否最大 以上为单行结构以上为单行结构If语句语句 Text4.Text=maxEnd Sub【练习【练习4.34.3】输入】输入3 3个整数，求其最小值。个整数，求其最小值。IIFIIF函数的语法格式为：函数的语法格式为：IIF(IIF(,)2)说明：当条件表达式的值为真时，返回表达式说明：当条件表达式的值为真时，返回表达式1 1的值，的值，否则返回表达式否则返回表达式2 2的值。的值。如：如：max=IIF(xy,x,ymax=IIF(xy,x,y)相当于：相当于：If xy Then max=x El
11、se max=yIf xy Then max=x Else max=y 在一个在一个IfIf语句中，又包含另一些语句中，又包含另一些IfIf语句称为语句称为IfIf语句的嵌套。语句的嵌套。语法格式为：语法格式为：If If 条件表达式条件表达式1 Then1 Then 语句块语句块1 1ElseIfElseIf 条件表达式条件表达式2 Then2 Then 语句块语句块2 2 ElseIfElseIf 条件表达式条件表达式n n Then Then 语句块语句块n nElseElse 语句块语句块n n+1+1End IfEnd If执行过程执行过程:先判断条件表达式先判断条件表达式1 1，若
12、其值为真，则执行语句块若其值为真，则执行语句块1 1，结束整个结束整个IfIf语句，否则判断条件语句，否则判断条件表达式表达式2 2，若条件表达式，若条件表达式2 2的值为的值为真，则执行语句块真，则执行语句块2 2，结束整个，结束整个IfIf语句，依此类推，当判断条件语句，依此类推，当判断条件表达式表达式n n不满足时，若最后有不满足时，若最后有ElseElse子句则执行子句则执行ElseElse子句，否则子句，否则结束结束IfIf语句的执行。语句的执行。说明：说明：(1)ElseIf(1)ElseIf子句可选，数目不限，但须位于子句可选，数目不限，但须位于IfIf子句子句与与ElseEls
13、e子句子句(若有若有ElseElse子句子句)之间。之间。(2)(2)注意注意ElseIfElseIf的书写形式，中间没有空格。的书写形式，中间没有空格。(3)(3)每个每个ThenThen后要回车，整个后要回车，整个IfIf语句只有一个语句只有一个End End IfIf。如：如：If x 0 Then y=1 ElseIf x=0 Then y=0 Else y=-1 End If若若x=5，程序如何执行？，程序如何执行？若若x=0，程序如何执行？，程序如何执行？【例【例4.44.4】输入学生的考试成绩，输出他的等级。输入学生的考试成绩，输出他的等级。将成绩转换为等级，转换规则为：将成绩转
14、换为等级，转换规则为：不及格不及格(60)60)，及格，及格(60(6069)69)，中等，中等(70(7079)79)，良好良好(80(8089)89)，优秀，优秀(90(90100)100)。分析：画一个数轴，在其上标注各个条件值分析：画一个数轴，在其上标注各个条件值,编写编写ElseIfElseIf结构时，按一定顺序结构时，按一定顺序(从左到右，也可从右到从左到右，也可从右到左，注意保持一致左，注意保持一致)逐个选取条件。逐个选取条件。代码分析与设计代码分析与设计(按从左到右的顺序取条件按从左到右的顺序取条件)：Private Sub Command1_Click()Dim score
15、As Single,grade As String score=Val(Text1.Text)If score 60 Then grade=不及格不及格 ElseIf score 70 Then 相当于相当于60=score70 grade=及格及格 ElseIf score 80 Then 相当于相当于70=score80 grade=中等中等 ElseIf score 90 Then 相当于相当于80=score=90 grade=优秀优秀 End If Text2.Text=gradeEnd Sub Command1_Click的事件代码也可按从右到左的顺序取条件，的事件代码也可按从右到
16、左的顺序取条件，完成后的程序代码如下：完成后的程序代码如下：Private Sub Command1_Click()Dim score As Single,grade As String score=Val(Text1.Text)If score=90 Then grade=优秀优秀 ElseIf score=80 Then 相当于相当于80=score=70 Then 相当于相当于70=score=60 Then 相当于相当于60=score70 grade=及格及格 Else 相当于相当于score 0 Then y=1 ElseIf x=0 Then y=0 Else y=1 End I
17、fIf x 0 Then y=1 else If x=0 Then y=0 Else y=-1 End IfEnd If 在右边程序中，要特别注意在右边程序中，要特别注意End IfEnd If与与IfIf的配对应满足的配对应满足“最近未配对最近未配对”原则。原则。Select Case语句，语法结构为语句，语法结构为：Select Case Case 表达式列表表达式列表1 语句块语句块1 Case 表达式列表表达式列表2 语句块语句块2 Case 表达式列表表达式列表n 语句块语句块n Case Else 语句块语句块n+1 End Select 执行过程是先计算测试执行过程是先计算测试表
18、达式的值，然后从上至下，表达式的值，然后从上至下，在各表达式列表中查找匹配在各表达式列表中查找匹配的值，若找到，则执行该的值，若找到，则执行该CaseCase子句对应的语句块，结子句对应的语句块，结束整个束整个Select CaseSelect Case语句，语句，若不匹配，则匹配下一个若不匹配，则匹配下一个CaseCase子句，若都不匹配，则子句，若都不匹配，则什么都不执行。什么都不执行。说明：说明：(1)(1)各表达式列表必须与测试表达式的数据类型相各表达式列表必须与测试表达式的数据类型相同或相容。同或相容。(2)(2)表达式的形式可以包含以下表达式的形式可以包含以下3 3种形式。种形式。
19、一个或一组值：一个或一组值：Case 1 Case 1 或或 Case1,2,3,4,5,6,7,8,9,10Case1,2,3,4,5,6,7,8,9,10。中间用逗号隔开。中间用逗号隔开。两个值间范围：两个值间范围：Case 1 to 10Case 1 to 10。表示。表示1 11010的的范围。范围。Is Is 关系表达式：关系表达式：Case Is10Case Is10。表示小于。表示小于1010的的范围。范围。例如：将成绩转换为等级例如：将成绩转换为等级【例【例4.5】将例将例4.4改用改用Select Case语句来实现。语句来实现。Private Sub Command1_Cl
20、ick()Dim score As Single,grade As String score=Val(Text1.Text)Select Case score Case Is 100 grade=非法输入非法输入 Case Is 60 grade=不及格不及格 Case Is 70 grade=及格及格“Case Is 80 grade=中等中等 Case Is 57 Or KeyAscii 57 Or KeyAscii 45 Or keyAsii=47 Then KeyAscii=0 屏蔽数字字符和小数点和负号之外的字符输入屏蔽数字字符和小数点和负号之外的字符输入 End IfEnd Sub
21、 【例【例4.9】在客户满意程度调查中发现，客户的满意程度会导致在客户满意程度调查中发现，客户的满意程度会导致不同的行为特征，见表不同的行为特征，见表4-1。设计一个应用程序，输入一个客户。设计一个应用程序，输入一个客户的满意程度，查询该满意程度对应的情绪反应和行为。的满意程度，查询该满意程度对应的情绪反应和行为。1)界面设计界面设计程序的主要代码如下：程序的主要代码如下：Private Sub Command1_Click()Dim strin As String,strout As String If Text1.Text Then strin=Text1.Text If strin=很不
22、满意 Then strout=愤慨、恼怒、投诉、负面宣传 ElseIf strin=不满意 Then strout=气愤、烦恼 ElseIf strin=不太满意 Then strout=抱怨、遗憾 ElseIf strin=一般 Then strout=无明显正、负情绪 ElseIf strin=较满意 Then strout=好感、肯定、赞许好感、肯定、赞许 ElseIf strin=满意满意 Then strout=称心、愉快、赞扬称心、愉快、赞扬 ElseIf strin=很满意很满意 Then strout=激动、正面宣传激动、正面宣传 Else strout=输入错误输入错误 En
23、d If Text2.Text=strout End IfEnd Sub 【例4.10】有一天，陈老师打开QQ，有个朋友给他发了个信息，说在QQ很神奇，只要按住Alt键不放，输入1234可以显示他的姓名。半信半疑的陈老师还是按要求做了，结果上当后的陈老师很气愤，他想请你帮他用VB设计一个类似的程序，回敬一下他那个好开玩笑的朋友。1)界面设计界面设计2)代码分析与设计代码分析与设计 用户是否在输入字符时按住了用户是否在输入字符时按住了Alt键，可用条件键，可用条件“Shift=4 And KeyCode 18”来判断。来判断。多次输入的值连成一个字符串。可用多次输入的值连成一个字符串。可用 my
24、str=mystr+Chr(KeyCode)语句来实现。语句来实现。Text1.Text=Text1.Text+Chr(KeyCode)语句将用语句将用户所输入的内容显示。户所输入的内容显示。程序的源代码如下：程序的源代码如下：Dim mystr As String Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)If Shift=4 And KeyCode 18 Then mystr=mystr+Chr(KeyCode)Text1.Text=Text1.Text+Chr(KeyCode)End IfIf mystr=
25、1234 Then Text1.Text=小猪头 mystr=End IfEnd Sub【例】建立如图5-3所示的界面，输入任一点的坐标（X，Y），判断该点位于哪个象限。在平面直角坐标系中，点所在的象限有以下4种情况：X0，Y0 点位于第一象限内 X0，Y0 点位于第四象限内 X0 点位于第二象限内 X0，Y 0 Then If y 0 Then Print 该点位于第一象限该点位于第一象限 Else Print 该点位于第四象限该点位于第四象限 End IfElse If y 0 Then Print 该点位于第二象限该点位于第二象限 Else Print 该点位于第三象限该点位于第三象限
26、End IfEnd IfEnd Sub程序代码如下：分析：当b2-4ac0时，方程有两个不相等的实根；当b2-4ac=0时，方程有两个相等的实根；当b2-4ac=0 Then If dert 0 Then r=Sqr(dert)/(2*a)x1=p+r x2=p-r Else x1=p x2=p End If Label5.Caption=x1=&x1&str&x2=&x2Else r=Sqr(-dert)/(2*a)Label5.Caption=x1=&p&+&r&i&str&x2=&p&-&r&iEnd IfEnd Sub【例】设计一个口令检测程序，当用户输入的口令正确时，显示设计一个口令
27、检测程序，当用户输入的口令正确时，显示“你已成你已成功进入本系统功进入本系统”，否则，显示，否则，显示“口令错！请重新输入口令错！请重新输入”。如果连续三次输入。如果连续三次输入了口令仍不正确，则提示了口令仍不正确，则提示“你无权使用本系统你无权使用本系统”。程序代码如下：Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Static I As IntegerIf KeyCode=13 Then If UCase(Text1.Text)=abcd Then Label2.Caption=你已成功进入本系统”ElseIf I
28、3 Then I=I+1 Label2.Caption=口令错！请重新输入 Text1.SetFocus Else MsgBox 你无权使用本系统 End IfEnd IfEnd Sub习题习题4-1Private Sub Command1_Click()Dim a As Integer,b As Integer Dim temp As Integer a=Val(Text1.Text)b=Val(Text2.Text)If a b Then temp=a a=b b=temp End If Label3.Caption=排序结果排序结果(从大到小顺序从大到小顺序):&a&,&bEnd Sub
29、Private Sub Command2_Click()EndEnd Sub习题习题4-2 Private Sub Command1_Click()Dim a As Integer a=Val(Text1.Text)If a Mod 2=0 Then Text2.Text=偶数偶数 Else Text2.Text=奇数奇数 End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub习题习题4-3星期名称汉译星期名称汉译Private Sub Command1_Click()Dim w_c As String,w_e As String w_c=Tex
30、t1.Text Select Case w_c Case 星期日星期日 w_e=Sunday Case 星期一星期一 w_e=Monday Case 星期二星期二 w_e=Tuesday Case 星期三星期三 w_e=Wednesday Case 星期四星期四 w_e=Thursday Case 星期五星期五 w_e=Friday Case 星期六星期六 w_e=Saturday Case Else w_e=非法输入非法输入 End Select Text2.Text=w_eEnd Sub习题习题4-4:Private Sub Command1_Click()Dim str As Strin
31、g,h As Integer h=Hour(Time)If h 6 Then str=早上好早上好!ElseIf h=12 And h 10000 Then Text2.Text=old_s*1.1 ElseIf old_s=5001 Then Text2.Text=old_s*1.15 ElseIf old_s=1000 Then Text2.Text=old_s*1.2 ElseIf old_s 0 Then Text2.Text=old_s*1.3 Else Text2.Text=非法输入非法输入 End IfEnd SubPrivate Sub Command2_Click()EndE
32、nd Sub习题习题4-6:Private Sub Command1_Click()Dim y As Integer y=Val(Text1.Text)If y 0 Then y=y Mod 12 Select Case y Case 0 Text2.Text=猴猴 Case 1 Text2.Text=鸡鸡 Case 2 Text2.Text=狗狗 Case 3 Text2.Text=猪猪 Case 4 Text2.Text=鼠鼠 Case 5 Text2.Text=牛牛 Case 6 Text2.Text=虎虎 Case 7 Text2.Text=兔兔 Case 8 Text2.Text=龙
33、龙 Case 9 Text2.Text=蛇蛇 Case 10 Text2.Text=马马 Case 11 Text2.Text=羊羊 End Select Else Text2.Text=非法输入非法输入 End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub实训实训1:Private Sub Command1_Click()If Text1.Text=abc And Text2.Text=1234 Then MsgBox 登录成功登录成功,欢迎进入本系统欢迎进入本系统!,0,系统提示系统提示 Else MsgBox 用户名和密码都错用户名和密码
34、都错,请重新输入请重新输入!,0,系统提示系统提示 End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub实训实训2:Private Sub Command1_Click()Dim temp As Integer,str As String,key As String str=Text1.Text temp=Int(3*Rnd)If temp=0 Then key=拳头拳头 ElseIf temp=1 Then key=石头石头 Else key=布布 End If Text2.Text=key If key=str Then MsgBox 猜拳
35、正确！恭喜你。猜拳正确！恭喜你。,0,系统提示系统提示 Else MsgBox 欠点运气！祝你下次好运。欠点运气！祝你下次好运。,0,系统提示系统提示 End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub实训实训3:Private Sub Command1_Click()Dim c As Single,x As Single c=Val(Text1.Text)If c 0 Then Text2.Text=非法输入非法输入 ElseIf c 100 Then Text2.Text=c ElseIf c 200 Then Text2.Text=c*
36、0.95 ElseIf c 500 Then Text2.Text=c*0.9 ElseIf c 1000 Then Text2.Text=c*0.85 ElseIf c 10000 Then Text2.Text=c*0.8 Else Text2.Text=c*0.75 End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub实训实训4:Private Sub Command1_Click()Dim c As Double,t As Single c=Val(Text1.Text)c=c-1600 Select Case c Case Is=0
37、t=0 Case Is=500 t=0.05*c Case Is=2000 t=500*0.05+0.1*(c-500)Case Is=5000 t=500*0.05+0.1*1500+0.15*(c-2000)Case Is=20000 t=500*0.05+0.1*1500+0.15*3000+0.2*(c-5000)Case Is=40000 t=500*0.05+0.1*1500+0.15*3000+0.2*15000+0.25*(c-20000)Case Is=60000 t=500*0.05+0.1*1500+0.15*3000+0.2*15000+0.25*20000+0.3*(
38、c-40000)Case Is=80000 t=500*0.05+0.1*1500+0.15*3000+0.2*15000+0.25*20000+0.3*20000+0.35*(c-60000)Case Is=100000 t=500*0.05+0.1*1500+0.15*3000+0.2*15000+0.25*20000+0.3*20000+0.35*20000+0.4*(c-80000)Case Else t=500*0.05+0.1*1500+0.15*3000+0.2*15000+0.25*20000+0.3*20000+0.35*20000+0.4*20000+0.45*(c-800
39、00)End Select Text2.Text=Format(t,0.00)End SubPrivate Sub Command2_Click()EndEnd Sub实训实训5:Private Sub Command1_Click()Dim key1 As String,key2 As String,score As Integer Select Case True 查找单选题的用户答案查找单选题的用户答案 Case Option1.Value 选项按钮选项按钮Option1对应答案对应答案A key1=A Case Option2.Value 选项按钮选项按钮Option2对应答案对应答案
40、B key1=B Case Option3.Value 选项按钮选项按钮Option3对应答案对应答案C key1=C Case Option4.Value 选项按钮选项按钮Option4对应答案对应答案D key1=D End Select key2=以下以下4行代码是查找多选题的用户答案行代码是查找多选题的用户答案 If Check1.Value Then key2=key2&A“Check1对应答案对应答案A If Check2.Value Then key2=key2&B“Check2对应答案对应答案B If Check3.Value Then key2=key2&C Check3对应
41、答案对应答案C If Check4.Value Then key2=key2&D“Check4对应答案对应答案D If key1=A Then score=score+50 If key2=AB Then score=score+50 Text1.Text=score MsgBox 正确答案是：正确答案是：+vbCrLf+1、A+vbCrLf+2、AB,0,系统提示系统提示End Sub实训实训6Private Sub Command1_Click()Dim result As Single,key As Single Dim temp1 As Integer,temp2 As Integer
42、 If Text3.Text Then temp1=Val(Text1.Text)temp2=Val(Text2.Text)result=Val(Text3.Text)Select Case True Case Option1.Value key=temp1+temp2 Case Option2.Value key=temp1-temp2 Case Option3.Value key=temp1*temp2 Case Option4.Value key=temp1/temp2 End Select If key=result Then MsgBox 答案完全正确答案完全正确,你真棒你真棒!,0
43、,系统提示系统提示Else MsgBox 对不起对不起,答错了答错了,继续努力继续努力!,0,系统提示系统提示End IfElse MsgBox 请输入用户答案！请输入用户答案！Text3.SetFocus End IfEnd SubPrivate Sub Command2_Click()Text1.Text=Int(100*Rnd)Text2.Text=Int(100*Rnd)Text3.Text=Text3.SetFocus End SubPrivate Sub Command3_Click()Dim n As Integer n=MsgBox(您真的想退出应用程序吗？您真的想退出应用程序
44、吗？,vbYesNo +vbDefaultButton2+vbQuestion,提示提示)If n=vbYes Then End End IfEnd SubPrivate Sub Form_Load()Text1.Text=Int(100*Rnd)Text2.Text=Int(100*Rnd)Option1.Value=True Label1.Caption=+End SubPrivate Sub Option1_Click()Label1.Caption=+End SubPrivate Sub Option2_Click()Label1.Caption=-End SubPrivate Sub
45、 Option3_Click()Label1.Caption=*End SubPrivate Sub Option4_Click()Label1.Caption=/End SubPrivate Sub Text3_KeyPress (KeyAscii As Integer)If KeyAscii 57 Or KeyAscii 46 Or keyasii=47 Then KeyAscii=0 End IfEnd Sub实训实训8:Private Sub Command1_Click()Dim g As String,c As String,j As String Dim x As Integer
46、,y As String Select Case True Case Option1.Value g=05 Case Option2.Value g=06 Case Option3.Value g=07 Case Option4.Value g=08 End SelectSelect Case True Case Option5.Value j=01 Case Option6.Value j=02 Case Option7.Value j=03 Case Option8.Value j=04 End Select Select Case True Case Option9.Value c=01
47、 Case Option10.Value c=02 Case Option11.Value c=03 Case Option12.Value c=04 End Selectx=Int(Rnd*100)If x 10 Then y=0+Trim(Str(x)Else y=Trim(Str(x)End If Text1.Text=12&g&j&c&yEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Option1.Value=True Option5.Value=True Option9.Value=TrueEnd Sub
