可视化编程VBIf语句单、双分支结构习题(含答案)

1、1.应用窗体单击事件，从键盘输入两个数，分别放在x和y变量中，比较它们大小，要求将大数放在x中，小数放在y中。分析：两个变量交换必须借助第三个变量，并且注意赋值语句的写法。等价的行IF是：If x *( y ThenOSL扎扎ck2 朝liA 當c- rrr2.x - yy = tEnd If氏】玳大数为*:End Sub新建一个名称为 comma nd1的命令按钮，输入以下代码:皂 Forml36BCcunmandlGZ TUI * Forml (Code)Cnm mdlFrivit* Sut C&rmandl_ClikQa = t eictl. Teit: b = tet2. Text:工

2、=a + b If a b Then x = t + atext3. Tsxt = jcEnd Sub3. 应用窗体单击事件输入成绩，成绩大于等于60分输出恭喜你通过考试”，否则输出很遗憾你没通过考试”。匚 11 - Forml (Code)FormPrivate Sub form_cli ckC) Dim score A.s Si ngle= Vai UnpiitBox (谱辅入你的战塔T)If score FO Tltenfriat 很這櫃你没通过老iiTEls Friat g很建嘔懈没通过考iiTSnl IEnd Sub4、输入三角形的三条边的边长，判断其是否构成一个三角形。如果能，则计

3、算并显示该三 角形的面积，如果不能，则给出相应的提示信息。馱三刪舵妊:H：b:演三角瞒湎81長：6& 工程 1 - Forrnl (Code|CoBinuxdlfiivate Sub CMTim4ndl_ClickODim a As SinL b As Eingl t As SiTtgliDim p As Sincl c And a + c b And 1)+ c a Thip=(a.4l+c)/2w = Sir (jj * 一 G * - bm jp - t)L*belS.CapjQn = ”该三副獅面税是；$ Stf (w)肯工引垃呗二该三边不能构成三角形，请重新输入2 “Ed IfEnd

4、 Sub5、某大楼的电梯限载为 13人，限重1000kg，在此范围内电梯能正常运行，超出了这个范 围电梯将发出警报。操作要求：单击“电梯”按钮，在文本框 重量，若满足题目要求，则在命令按钮标题上显示“正常运行”1和文本框2分别输入人数与，否则命令按钮上显示“发Goainajidl出警报”，并且命令按钮无效。Sub CcnmandljClickODim a Asb As Iiktsger也=Vai (Teztl. Text) b = ValCTextS TeieOIf a = 13 W b = 1000 Then CcmmsiLdl. Caf ti on -正當歪行ElseCommaitdl.

5、Capti oik -出警根ComrnarLdl. Enabled = False 鬧IfEnd Siit6、设计一个致欢迎词的程序： 当输入姓名及选择相应的性别时，根据性别显示不同的用语,如图所示。7、打开工程文件，操作要求：修改程序代码。（1）界面修改：添加文本框对象text4，将text4的text属性设置成空白且只读属性。（2 ）调整程序实现功能：在文本框 text1、text2、text3分别输入三个整数 a、b、c,单击“计 算按钮”，如果a、b、c作为边长能构成三角形，则在 text4中显示“ abc能构成三角形”， 否则显示“ abc不能构成三角形“，单击“清空”所有文本框中的

6、数据。（3）将工程文件4-1-3.vbp和窗体文件4-1-3.frm及生成的执行文件 4-1-3.exe保存在考生文件夹中。匸程 1. - Forml (Code)0 amnmdltrivet* Sub CcmmindljCli ek 0Dim観琳，祿a = Vai CTaxil, Taxi)t = Vai CT ext?. Text) b Aikd b + c / a Then TestA：- Tex t Lj 能构碍三角u捫ElseT#t4. 亠,匕坏能枸咸三吊H#End IfErd. SubFrivitt Sub Command2_Cli ck 0lextl -Teste =Tsxt3

7、= ,rfTaxt4 =End Sub2、 Private Sub command1_click() a = Text1.Text: b = Text2.Text: x = a + b If a b Then x = b + a Text3.Text = x End Sub3、 Private Sub form_click() Dim score As Single score = Val(InputBox( 请输入你的成绩 )If score = 60 ThenPrint 很遗憾你没通过考试 ElsePrint 很遗憾你没通过考试 End If End Sub4、Private Sub Co

8、mmand1_Click() Dim a As Single, b As Single, c As Single Dim p As Single, s As Single a = Text1.Text b = Text2.Text c = Text3.TextIf a + b c And a + c b And b + c a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Label5.Caption = 该三角形的面积是： & Str(s) ElseLabel5.Caption = 该三边不能构成三角形，请重新输入！ End IfEnd Sub5、 Private Sub Command1_Click() Dim a As Integer, b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a = 13 And b c And a + c b And b + c a ThenTe