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

1、.应用窗体单击事件，从键盘输入两个数，分别放在X和y变量中，比较它们大小，要求 将大数放在x中，小数放在y中。分析：两个变量交换必须借助第三个变量，并且注意赋值语句的写法。等价的行IF是：If x c And a十 c )b Arid li 十 c ：i Thenp = (a. 4 b 4 c) = Sq.r (p * (p - a) * Cp - b) (p - c)LaleL5, Caption =一三鬲形的面积是:&SttG) Els&LabE15.匚即tig =该三边不能构成三鬲形，清重新输入！ End 1 End Sub5、某大楼的电梯限载为13人，限重1000kg,在此范围内电梯能

2、正常运行，超出了这个范 围电梯将发出警报。操作要求：单击“电梯”按钮，在文本框1和文本框2分别输入人数与 重量，若满足题目要求，则在命令按钮标题上显示“正常运行”，否则命令按钮上显示“发 出警报”，并且命令按钮无效。ConintajidlConintajidlSut C crnm =uldl _C1 i ck QHim a Asb ks Integera = Yai (Tewtl. Test)h = V：dl(Te:t2.Teza：lIf a = 13 And b c Ami ：i + c b And b + 匚 ：i Then T-U.Text =%瓦:能构成三角形“ElseText = ”

3、不能构成三鬲形“End. IfEnd. SubPrivate Sub CcmmandZ_Cli ck ()Textl = E一TestS =Text3 = Text4 =End. SubPrivate Sub command1_click()a = Text1.Text: b = Text2.Text: x = a + bIf a b Then x = b + aText3.Text = xEnd SubPrivate Sub form_click()Dim score As Singlescore = Val(InputBox(请输入你的成绩)If score = 60 ThenPrint

4、很遗憾你没通过考试ElsePrint 很遗憾你没通过考试End IfEnd SubPrivate Sub Command1_Click()Dim a As Single, b As Single, c As SingleDim p As Single, s As Singlea = Text1.Textb = Text2.Textc = 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 SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text)b = Val(Text2.Text)If a = 13 And b c And a + c b And b + c a ThenText4.Text =匕用储能构成三角形ElseText4.Text =匕用3不能构成三角形