程序填空(上海海事).docVIP

1、 功能：输入一个数,若大于0,则显示+；若小于0，则显示 -；若等于0,则显示零。 Private Sub Command1_Click Dim x% x Val Text1.Text Select Case x Case Is 0 Label1.Caption + Case Is 0 Label1.Caption - Case 0 或 Case Else 或 Case Is 0 Label1.Caption 零 End Select End Sub 功能：输入任何一个英文字母x,若x的值为a,c,d-f ,则显示x的大写字母；若x的值为m,o,p-z,则显示x的小写字母； 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。 Private Sub Command1_Click Dim x$ x Text1.Text Select Case x Case a, c, d To f Label1.Caption UCase x Case m, o, p To z Label1.Caption LCase x Case Else Label1.Caption Trim x + a 或 Label1.Caption x + a End Select End Sub 功能：以下程序的功能如 图1 。 Private Sub Form_Click Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a InputBox 请输入a的值 b InputBox 请输入b的值 c InputBox 请输入c的值 d b * b - 4 * a * c p -b / 2 * a If d 0 Then If d 0 或 0 d Then r Sqr d / 2 * a x1 p + r x2 p - r Else x1 p x2 p End If Print x1 ; x1, x2 ; x2 Else q Sqr -d / 2 * a Print x1 ; p; +; q; i, x2 ; p; -; q; i End If End Sub 4、功能：下面的程序段用于建立文件并输出文件，文件内容如下： ***** ***** ***** ***** ***** Private Sub Form_Click Dim i%, x$ Open c:\1.txt For Output As #1 For i 1 To 5 Print #1, Spc i ; ***** Next i Close #1 或 Close Open c:\1.txt For Input As #1 For i 1 To 5 Line Input #1, x Print x Next i Close #1 End Sub 功能：以下程序段用于求∑n! Private Sub Form_Click Dim sum As Integer, n As Integer n InputBox 请输入一个正整数 sum 0 For i 1 To n sum sum+ mul i Next i Print sum End Sub Private Function mul ByVal x As Integer Dim s As Integer, i As Integer s 1 For i 1 To x s s * i Next i mul s End Function 6、功能：根据输入的学习成绩,分别显示优秀 90分以上 , 良好 75分以上 ,及格 60分以上 ,不及格几个等级。 Private Sub Command1_Click Dim x% x Val Text1.Text If x 90 Then Label1.Caption 优秀 ElseIf x 75 或 75 X Then Label1.Caption 良好 ElseIf x 60 Then Label1.Caption 及格 或 Label1 及格 Else Label1.Caption 不及格 End If End Sub 功能：求 1!+2!+……+10!的值。 Private Sub Form_Click t 1 s 1 For I 2 To 10 t t * I Next I 或 Next Print s End Sub 7、功能：从键盘输入学生分数，统计学生总人