石大VB教程部分课后习题答案.docVIP

4.5用文本框输入一个数，判断能否同时被3、5、7整除。若能整除，则用标签输出“能同时被3、5、7整除”，否则输出“不能整除”。 Private Sub Command1_Click() Dim a As Single a = Val(Text1) If a Mod 105 = 0 Then Label1.Caption = 能同时被3、5、7整除 Else Label1.Caption = 不能整除 End If End Sub 4.6判断输入的三条边能否构成三角形，若能则计算面积，否则给出错误提示，并定位焦点，重新输入三条边。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = Val(Text1) b = Val(Text2) c = Val(Text3) If a + b c And a - b c Then Text4.Text = Sqr((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a) / 16) Else MsgBox (数据错误，请重新输入) End If Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1) End Sub 4.8用块结构条件语句实现。使用InputBox函数输入3个数，找出并输入3个数中的最大数及最小数。 Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = Val(InputBox(请输入)) b = Val(InputBox(请输入)) c = Val(InputBox(请输入)) If a b Then t = b b = a a = t End If If a c Then n = c c = a a = n End If If b c Then m = c c = b b = m End If Print 最小数; a Print 最大数; c End Sub 4.9用Select Case语句实现。使用文本框输入任意一个整数x，根据其除以3的余数判断并输出结果。 Private Sub Command1_Click() Dim x As Integer, b As Integer x = Val(Text1) b = x Mod 3 Select Case b Case 0 MsgBox Str(x) 整除3 Case 1 MsgBox Str(x) 除以3余1 Case 2 MsgBox Str(x) 除以3余2 End Select End Sub 4.13要求程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则把它的大写形式显示在标签Label1中；若是大写字母，则把它的小写形式显示在标签Label1中；若是其他字符，则把该字符直接显示在标签label1中。（提示：为文本框建立Change事件，用Right函数从文本框中取一个字符。） Private Sub Text1_Change() Label1.Caption = Right(a, 1) a = Text1.Text If Right(a, 1) = UCase(Right(a, 1)) Then Label1.Caption = LCase(Right(a, 1)) Else If Right(a, 1) = LCase(Right(a, 1)) Then Label1.Caption = UCase(Right(a, 1)) End If End If End Sub 4.15按要求设计界面并编写程序，实现如下功能：①Form1窗体的Text1文本框，初始内容为空，初始状态为不可用，输入字符时文本框内将显示字符“*”。 ②单击Form1窗体的“输入密码”按钮，则Text1变为可用，定位焦点。 ③输入密码后单击Form1窗体的“密码校验”按钮，则判断输入的内容是否为小写字母“abc”，若是，则隐藏Form1窗体，显示Form2窗体；若密码输入错误，则提示重新输入，三次密码错误则退出系统。 Private Sub Command1_Click() Text1.Enabled = True Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Form2.Hide Form1.Show End Sub Private Sub Command2_Click() Static times