UC知道急 一共3题
来源：百度知道 编辑：UC知道 时间：2024/05/17 09:39:40
1。在文本框中输入若干字符，统计元音字母（a,e,i,o,u）和其他字母的个数，不区分大小写。输入回车符结束，显示有关信息。
Dim countY%, countC%
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim c As Char
c = (1)
If "A" <= c And c <= "Z" Then
Select Case (2)
Case (3) ‘元音字母
countY = countY + 1
Case Else
countC = countC + 1
End Select
End If
If (4) Then ‘判断是否按回车键 (回车键的ASCII值为13)
MsgBox("元音字母有" & countY & "个")
MsgBox("其他字母有" & countC & "个")
End If
End Sub
2。找出被3、5、7除，余数为1的最小的5个正整数。
Private Sub Form1_Click(ByVal se
Dim countY%, countC%
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim c As Char
c = (1)
If "A" <= c And c <= "Z" Then
Select Case (2)
Case (3) ‘元音字母
countY = countY + 1
Case Else
countC = countC + 1
End Select
End If
If (4) Then ‘判断是否按回车键 (回车键的ASCII值为13)
MsgBox("元音字母有" & countY & "个")
MsgBox("其他字母有" & countC & "个")
End If
End Sub
2。找出被3、5、7除，余数为1的最小的5个正整数。
Private Sub Form1_Click(ByVal se
第一道代码：
Dim countY%, countC%
Private Sub Command1_Click()
Dim c As String
a = Len(Text1.Text)
For i = 1 To a
c = Mid(Text1.Text, i, 1)
If "A" <= c And c <= "z" Then
Select Case c
Case ("a") '元音字母
countY = countY + 1
Case ("e")
countY = countY + 1
Case ("i")
countY = countY + 1
Case ("o")
countY = countY + 1
Case ("u")
countY = countY + 1
Case Else
countC = countC + 1
End Select
End If
Next i
MsgBox ("元音字母有" & countY & "个")
MsgBox ("其他字母有" & countC & "个")
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
本题为1 text,1 command
你给的代码我研究了好一会还是没结果，感觉像JAVA又像VB，所以就只好按我自己的方法做了这个同样结果的代码。
大概：
1=（TextBox1.text）
2=（c）
3=("a"