加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

VB编程小练习

发布时间:2020-12-17 07:43:17 所属栏目:百科 来源:网络整理
导读:1.请编写一个程序,要求输入一个字符串,默认输入为 ”hello,world!”, 然后打印显示此字符串,请注意要有必要的注释。 Option Explicit Dim i i="Hello,World!" MsgBox i 2.请编写一个程序,计算从1到10连加的和,并显示结果。 Option Explicit Dim i,j,k i

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

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读