Question

VB编程循环语句问题

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)        '每按一次键，就激发一次 

Static n        '定义静态变量n，记录每一次奇数数字键被按下的次数

  If KeyAscii > 48 And KeyAscii < 58 And KeyAscii Mod 2 = 1 Then n = n + 1

        '若是数字键，且是奇数，就n+1

  If KeyAscii = 13 Then Text2 = n        '按了回车键，就把统计数显示到Text2文本框中

End Sub

追问

两个都是这样显示，是怎么回事啊

追答

你抄错标点了。这行开头是英文的单引号；
If Keyascii ...必须另起一行。

追问

在吗？你这个没有错误提示

不是正整数，无法报错。

追答

这样就可以了：
Private Sub Text1_KeyPress(KeyAscii As Integer) '每按一次键，就激发一次
Static n '定义静态变量n，记录每一次奇数数字键被按下的次数
Dim s As Boolean
If Not s Then n = 0: s = True '给N赋初值0
If KeyAscii > 48 And KeyAscii < 58 And KeyAscii Mod 2 = 1 Then n = n + 1
'若是数字键，且是奇数，就n+1
If KeyAscii = 13 Then Text2 = n '按了回车键，就把统计数显示到Text2文本框中
End Sub

追问

负数还是不行。不过也差不多了。谢谢你

Answer 2

 Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Dim str = TextBox1.Text
            If Not IsNumeric(str) OrElse Val(str) <= 0 Then
                MessageBox.Show("不是正整数", "Message", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                TextBox1.SelectAll()
            Else
                Dim jishu As Integer
                For i = 1 To str.Length
                    Dim shuzi = Mid(str, i, 1)
                    If Val(shuzi) Mod 2 = 1 Then
                        jishu += 1
                    End If
                Next
                TextBox2.Text = jishu
            End If
        End If
    End Sub

怎么全在问这个问题，你们是一伙的把，我要举报你们

追问

为什么我们老师给的提示是这样的？

我们在上课，老师留的随堂作业😓