vb 程序设计教程(机械工业出版社)习题答案 实验7-2.docVIP

实验7-2 习题5 程序 Function h(x As String) As Boolean Dim i%, a$, b% b = Len(x) For i = 1 To b a = a Mid(x, b + 1 - i, 1) Next i If a = x Then h = True Else h = False End If End Function Private Sub Command1_Click() Print h(Text1.Text) End Sub 截图 习题7 程序 Function j(x As Double) As Boolean If x Mod 2 = 0 Then j = True Else j = False End If End Function Private Sub Command1_Click() Dim x As Double x = Val(Text1.Text) Label2.Caption = j(x) End Sub 截图 习题8 程序 Sub t(a As Integer, b As String) Select Case a Case 1 b = 星期一 Monday Case 2 b = 星期二 Tuesday Case 3 b = 星期三 wednesday Case 4 b = 星期四 Thursday Case 5 b = 星期五 Friday Case 6 b = 星期六 Saturday Case 0 b = 星期日 Sunday End Select End Sub Private Sub Command1_Click() Dim c%, d$ c = Val(Text1.Text) Call t(c, d) Label2.Caption = d End Sub 截图 习题10 程序 Sub MaxLength(s As String, MaxWord As String) Dim i%, a%, b%, c%, d$() d = Split(s, ) b = UBound(d) c = Len(d(i)) For i = 1 To b If c Len(d(i)) Then c = Len(d(i)): a = i Next i MaxWord = d(a) End Sub Private Sub Command1_Click() Dim m$, n$ m = Text1.Text Call MaxLength(m, n) Text2.Text = n End Sub 截图