VB数据文件编程题目

发布网友发布时间：2022-06-28 10:35

共3个回答

热心网友时间：2022-07-12 08:57

Private Sub Command1_Click()

Open "C:\Users\Administrator\Desktop\考生文件夹\YY.txt" For Input As #1

Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)

Close #1

End Sub

Private Sub Command2_Click()

Dim c As String, S As Integer

For i = 1 To Len(Text1)

If Asc(Mid(Text1.Text, i, 1)) >= 65 And Asc(Mid(Text1.Text, i, 1)) = 97 And Asc(Mid(Text1.Text, i, 1)) <= 122 Or Asc(Mid(Text1.Text, i, 1)) = 10 Or Asc(Mid(Text1.Text, i, 1)) = 13 Then S = S + 1

Next i

Label1.Caption = "共" & Len(Text1.Text) - S & "个非英文字母"

End Sub

热心网友时间：2022-07-12 08:57

把题库作为一个字符串，然后就是对字符串的查找处理问题了！可以使用index，left，right，mid等字符串处理函数！
当输入题目后，就在题库字符串中查找匹配的题目，然后根据字符特征码提取答案出来就好了

热心网友时间：2022-07-12 08:58

Private Sub Command1_Click()
Open "YY.txt" For Input As #1
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)

End Sub

Private Sub Command2_Click()
  Dim a As String, i As Integer
  Dim sum As Integer, x As String
  a = Text1.Text
  For i = 1 To Len(a)
   x = Mid(a, i, 1)
   Select Case x
    Case "a" To "z", "A" To "Z"
    Case Else
      sum = sum + 1
   End Select
  Next
  Label1.Caption = sum

End Sub

追问英文字母统计怎么和示例里的不一样

追答

示例中的文本是有换行符的，你给的文本是没有换行符的。

dou you know that man cou#ld come some t$ime later 正确答案.
The book $ is not wants% will arrive so(on) 3454.
My name () size o*f the sk^irt is ail r!ight f#or the man·#%—（.
what dou you think of it ?c@ould b&uy$ a shirt of a dif四四5ferent color(*&^&%.