vb简单编程代码(vb编程入门代码)

2023-01-03 精选经验 0阅读 投稿:佚名
最佳答案大家好,小问来为大家解答以上问题。vb简单编程代码,vb编程入门代码这个很多人还不知道,现在让我们一起来看看吧!1、给你写个简单的分数小程序,你照我的写一遍,就知道,了解VB语言的编写思路之后,学他就不难了,很多语言都是差不多的,只是编写思路不同而已,就说c和c++吧,c++是建立在C的基础之...

大家好,小问来为大家解答以上问题。vb简单编程代码,vb编程入门代码这个很多人还不知道,现在让我们一起来看看吧!

1、给你写个简单的分数小程序,你照我的写一遍,就知道,了解VB语言的编写思路之后,学他就不难了,很多语言都是差不多的,只是编写思路不同而已,就说c和c++吧,c++是建立在C的基础之上的,但很多编写思路就不同,JAVA ,vc++又是一种思路,很大的不同,但都是一个共同目的,希望可以编写出好的程序来。

2、如下:

3、Private Sub Command1_Click()

4、If Not IsNumeric(TextText) Then

5、MsgBox "输入有误,只可以为数字", 48

6、 ElseIf Val(TextText) < -0.1 Then

7、 MsgBox "最小值不可以下于0,请输入正确的数字", 48

8、 TextText = ""

9、 TextSetFocus

10、 ElseIf Val(TextText) < 60 Then

11、 MsgBox "你没有及格,请继续努力!"

12、 ElseIf Val(TextText) >= 60 And Val(TextText) <= 75 Then

13、 MsgBox "还不错,您及格了"

14、 ElseIf Val(TextText) >= 76 And Val(TextText) < 90 Then

15、 MsgBox "很好,您的分数中等偏上"

16、 ElseIf Val(TextText) > 90 And Val(TextText) <= 100 Then

17、 MsgBox "你的成绩非常出色"

18、 ElseIf Val(TextText) < 0 Then

19、 MsgBox "数字可以小于0"

20、 TextText = ""

21、 TextSetFocus

22、 ElseIf Val(TextText) > 100 Then

23、 MsgBox "分数的最大值不可大于100,请重新输入!", 48

24、 TextText = ""

25、 TextSetFocus

26、Else

27、MsgBox "您的输入有误,请输入正确的数字"

28、End If

29、End Sub

30、注意:要想运行代码,先要在窗体上建立一个“command1,命名为:确定”

31、 建立一个,文本“和text1”

32、 再加上一个“label”,不可以运行这个小程序了,

33、这个小程序非常简单,如果还有不明白的地方,可以问我。

以上就是【vb简单编程代码,vb编程入门代码】相关内容。

声明:三农百科 所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系我们删除