VB编程小练习

1.请编写一个程序,要求输入一个字符串,默认输入为”hello,world!”,然后打印显示此字符串,请注意要有必要的注释。

Option Explicit
Dim i
i="Hello,World!"
MsgBox i

2.请编写一个程序,计算从1到10连加的和,并显示结果。

Option Explicit
Dim i,j,k
i="come"
j="on"
k="Olympic"
MsgBox i+" "+j+","+k+"!"

3.编写一个函数,用来确定考试成绩的等级,具体功能如下:先请求输入一个考试成绩,然后根据判断确定其等级并输出成绩和等级(大于等于90分的为优,大于等于80小于90的为良,大于等于70小于80为中,大于等于60小于70为及格,小于60为不及格)。

iValue=InputBox("请输入一个考试成绩","考试成绩等级") If iValue>=90 Then MsgBox "你的成绩为"+iValue+"等级为优" ElseIf iValue<90 And iValue>=80 Then MsgBox "你的成绩为"+iValue+"等级为良" ElseIf iValue<80 And iValue>=70 Then MsgBox "你的成绩为"+iValue+"等级为中" ElseIf iValue<70 And iValue>=60 Then MsgBox "你的成绩为"+iValue+"等级为及格" Else MsgBox "你的成绩为"+iValue+"等级为不及格" End If

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...