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

应用窗体单击事件，从键盘输入两个数，分别放在x和y变量中，比较它们大小，要求将大数放在x中，小数放在y中。 分析：两个变量交换必须借助第三个变量，并且注意赋值语句的写法。等价的行IF是：If xy Then t=x:x=y:y=t 新建一个名称为command1的命令按钮，输入以下代码： 应用窗体单击事件输入成绩，成绩大于等于60分输出“恭喜你通过考试”，否则输出“很遗憾你没通过考试”。 4、输入三角形的三条边的边长，判断其是否构成一个三角形。如果能，则计算并显示该三角形的面积，如果不能，则给出相应的提示信息。 5、某大楼的电梯限载为13人，限重1000kg，在此范围内电梯能正常运行，超出了这个范围电梯将发出警报。操作要求：单击“电梯”按钮，在文本框1和文本框2分别输入人数与 重量，若满足题目要求，则在命令按钮标题上显示“正常运行”，否则命令按钮上显示“发出警报”，并且命令按钮无效。 6、设计一个致欢迎词的程序：当输入姓名及选择相应的性别时，根据性别显示不同的用语，如图所示。 打开工程文件，操作要求：修改程序代码。 界面修改：添加文本框对象text4，将text4的text属性设置成空白且只读属性。 （2）调整程序实现功能：在文本框text1、text2、text3分别输入三个整数a、b、c,单击“计算按钮”，如果a、b、c作为边长能构成三角形，则在text4中显示“abc能构成三角形”，否则显示“abc不能构成三角形“，单击“清空”所有文本框中的数据。 （3）将工程文件4-1-3.vbp和窗体文件4-1-3.frm及生成的执行文件4-1-3.exe保存在考生文件夹中。 2、 Private Sub command1_click() a = Text1.Text: b = Text2.Text: x = a + b If a b Then x = b + a Text3.Text = x End Sub 3、 Private Sub form_click() Dim score As Single score = Val(InputBox(请输入你的成绩)) If score = 60 Then Print 很遗憾你没通过考试 Else Print 很遗憾你没通过考试 End If End Sub 4、 Private Sub Command1_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.Text If a + b c And a + c b And b + c a Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Label5.Caption = 该三角形的面积是： Str(s) Else Label5.Caption = 该三边不能构成三角形，请重新输入！ End If End Sub 5、 Private Sub Command1_Click() Dim a As Integer, b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a = 13 And b = 1000 Then Command1.Caption = 正常运行 Else Command1.Caption = 发出警报 Command1.Enabled = False End If End Sub 6、 Private Sub Command1_Click() Dim a As String a = Text1.Text If Option1.Value = True Then Label2.Caption = a 先生，欢迎你 Else Label2.Caption = a 小姐，欢迎你 End If End Sub 7、 Private Sub Command1_Click() Dim a%, b%, c% a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And a + c b And b + c a Then Text4.Text = a,b,c能构成三角形 Else Text4.Text = a,b,c不能构成三角形 End If End Sub Private Sub Command2_Click() Text1 = T