高一VB第五章分支结构程序设计测试题.docVIP

高一VB第五章分支结构程序设计测试题 程序填空： 若基本工资大于等于600元，增加工资20%；若小于600元，且大于等于400元，则增加工资15%；若小于400元，则增加工资10%。请根据用户输入的基本工资，计算出增加后的工资。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then n = Val(Text1.Text) Select Case ___ Case Is = 600 gz = n * (1+0.2) Case _____ gz = n * (1+0.15) Case Else ______ End Select Label1.Caption = 增加后的基本工资为:gz 元 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 2.输入圆的半径r，利用选项按钮，选择计算圆面积、计算圆周长等。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim r As String If KeyAscii = 13 Then pi = 3.14159 r = Val(Text1.Text) Select Case True Case Option1.Value n = __________ Label1.Caption = 圆的面积为： Str(n) Case Option2.Value m = _________ Label1.Caption = 圆的周长为： Str(m) Case Option3.Value n = pi * r * r m = 2 * pi * r Label1.Caption = 圆的面积为： Str(n) Chr(13) 周长为： Str(m) End Select _____________ End Sub 3.使用单选按钮组完成如下功能： Private Sub Command1_Click() If Option1.Value Then Text1.FontName = ______ Else Text1.FontName = 黑体 ______ If Option3.Value Then Text1.FontSize = _____ Else Text1.FontSize = ______ _______ End Sub Private Sub Command2_Click() Unload Me End Sub 4. 当在文本框Text1中输入内容并按回车键后，立即跳到Text3文本框以供输入，事件过程是： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then ________ End If End Sub 5. 下列程序的功能是：当x50时，y=0.8×x；当50≤x≤100时， y=0.7×x；当x＞100时，没有意义。请填空。 Private Sub Command1_Click() Dim x As Single x=InputBox(输入x的值)  ____ Case Is50 y=0.8 * x Case 50 To 100 y=0.7 * x ____ Print 输入的数据出界！ End Select Print x , y End Sub 6. 文本框的PasswordChar属性可以隐蔽用户通过键盘输入的字符。编写程序，利用文本框检查用户口令，如图5-5所示。 图5-5 检查用户口令 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If LCase(Text1.Text) = abcde Then Label1.Caption =_____________ Else Label1.Caption = ____________ End If Text1.SelStart = 0 Text1.