vb程序设计简答题

Question

阅读程序题

Private Sub Command1_Click()

Dim x As Integer

Static s As Integer

x = Val(InputBox("请输入一个正整数"))

If x < 6 Then

s = s * x

Else

s = s + x

End If

Text1.Text = "s=" & Str(s)

End Sub

程序运行后，连续3次单击Command按纽，且设输入的数据为6、5、4时，文本框Text1中显示的值。

Answer 1

Private Sub Text1_Change() If Text1.Text ; "" Then If Asc(Text1.Text) ;= 65 And Asc(Text1.Text) = 90 Then Text2.Text = Chr(Asc(Text1.Text) + 32) ElseIf Asc(Text1.Text) ;= 97 And Asc(Text1.Text) = 122 Then Text2.Text = Chr(Asc(Text1.Text) - 32) End If End If End Sub 这个代码只能转换一个字母 Dim c As String Private Sub Command1_Click() c = "" If Text1.Text ; "" Then For a = 1 To Len(Text1.Text) If Asc(Mid(Text1.Text, a, 1)) ;= 65 And Asc(Mid(Text1.Text, a, 1)) = 90 Then c = c + Chr(Asc(Mid(Text1.Text, a, 1)) + 32) ElseIf Asc(Mid(Text1.Text, a, 1)) ;= 97 And Asc(Mid(Text1.Text, a, 1)) = 122 Then c = c + Chr(Asc(Mid(Text1.Text, a, 1)) - 32) End If Next a Text2.Text = c End If End Sub 这段是转换整个text控件里的文字的 不知道你需要的是那个