Question

VB大神求帮忙，急急急急急急！！！！！！

在作业文件夹：下有一个工程文件prog.vbp，相应的窗体文件为prog.frm，在窗体上有二个文本框,名称分别为Text1和Text2,还有一个命令按钮,名称分别为Command1，标题为“计算”。程序的功能是：
在文本框Text1中输入一行字符串，单击“计算”按钮，统计Text1中大写字母的个数并在Text2中显示。在窗体的代码窗口中，已给出了部分程序，其中统计大写它母个在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在’*****begin*****和’*****end*****之间填入你编写的若干语句。运行并保存程序（按原文件名存盘），提交程序设计题文档。
注意：不要改动其它任何函数或过程中的内容！
Sub SaveData()
Dim s As String
Open App.Path & "\" & "PROGIN.DAT" For Input As #1
Open App.Path & "\" & "PROGOUT.DAT" For Output As #2
For i = 1 To 5
Input #1, s
Print #2, "第" & i & "行大写字母的个数为：" & Fun(s)
Next i
Close #1
Close #2
End Sub

Function Fun(s As String)
'********begin********

'*********end*********
End Function

Private Sub Command1_Click()
d = Fun(Text1.Text)
Text2.Text = "大写字母的个数为：" & d
SaveData
End Sub

Private Sub Form_Load()

End Sub

Answer 1

for i = 1 to len(s)
a=asc(mid(s,i,1))
if a>=65 and a<=90 then

j=j+1
end if
next
fun=j

追问

不好意思，中午回去试试再给您回复

Answer 2

Dim i As Integer
fun = 0
For i = 1 To Len(Text1.Text)
If Asc(Mid(Text1.Text, i, 1)) >= 65 And Asc(Mid(Text1.Text, i, 1)) <= 90 Then
fun = fun + 1
End If
Next