1、求1到100之间所有偶数的和。

Private Sub Command1_Click()

Dim i As Integer, sum As Integer

sum = 0

For i = 2 To 100 Step 2

sum = sum + i

Next i

Print sum

End Sub

2、设计一个程序,程序名为“PRG2,功能是根据分数&gt=90,&gt=80,&gt=60,&lt60,返回优秀,良好,及格,不及格。

Private Sub Command1_Click()

Dim grade As Single, result As String

grade = Val(InputBox("请输入成绩:", "成绩输入"))

Select Case grade

Case Is &gt= 90

result = "优秀"

Case Is &gt= 80

result = "良好"

Case Is &gt= 60

result = "及格"

Case Is &lt 60

result = "不及格"

End Select

MsgBox "该生的成绩等级为:" & result, , "成绩等级"

End Sub

或者

Private Sub Command1_Click()

Text1.SetFocus

a = Val(Text1.Text)

If Text1.Text &lt&gt "" Then

If a &gt= 90 And a &lt= 100 Then

Print "优秀"

ElseIf a &gt= 80 And a &lt 90 Then

Print "良好"

ElseIf a &gt= 70 And a &lt 80 Then

Print "一般"

ElseIf a &gt= 60 And a &lt 70 Then

Print "及格"

Else: Print "不及格"

End If

Else

MsgBox "请输入学生成绩", 0 + 32, "错误!"

End If

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

1到100的偶数之和是多少_求1到100之间所有偶数之和相关推荐

  1. PHP求1到100所有偶数的和,php求出两数之间所有偶数之和

    定义Show类 类中定义方法 sum 方法中传入两个数 在方法体内部求出两个数之间所有偶数得和 将求出得结果返回 输出返回后的结果 输出形式如下 两个数之间所有偶数得和为: 30 注意判断:传入得两个 ...

  2. python求1到10所有偶数的和_编写一个程序,求1到10之间所有偶数的和及其所有奇数的和...

    展开全部 以python语言为例2113: #!/usr/bin/env python # -*- coding: utf-8 -*- #编写一个程序,求52611到10之间所有偶数的和4102及其所 ...

  3. c语言求100以内偶数和while,c语言 求1到100以内的偶数之和

    满意答案 npiim 2013.05.24 采纳率:57%    等级:12 已帮助:7545人 答:一.临界考虑错误... 考虑当·i·等于98的结束后·· ··这个循环里面的b是为99···· · ...

  4. python求1到100偶数和_python 求1-100之间的奇数或者偶数之和的实例

    python 求1-100之间的奇数或者偶数之和的实例 如下所示: i=0 sum1=0 sum2=0 while i<=100: if i%2==0: sum1+=i else: sum2+= ...

  5. c语言for循环1到100奇数和,使用for循环结构编写程序计算1到100之间的奇数之和、偶数之和,输出格式为“1到100奇数和=xxx;1到100偶数和...

    题目: 使用for循环结构编写程序计算1到100之间的奇数之和.偶数之和,输出格式为"1到100奇数和=xxx:1到100偶数和=xxx". 解答: int jishuhe = 0 ...

  6. 求1到100之间的奇数之和、偶数之积

    求1到100之间的奇数之和.偶数之积 分析: 用for循环自增/自乘,省去判断奇数偶数的步骤 #include<stdio.h> int main() {double j,k,sum,pr ...

  7. 求1到100之间的奇数之和、偶数之积。

    #include <stdio.h> #include <stdlib.h> //求1到100之间的奇数之和.偶数之积. void main() {int n = 1, sum ...

  8. C编程 求1到100之间的奇偶数之和

    文章目录 1.求1到100之间的奇数之和 2.求1到100之间的偶数之和 1.求1到100之间的奇数之和 /* 时间:2020/04/21 21:14 内容:求1到100之间奇数的和奇数:不能被2整除 ...

  9. MATLAB编程经典程序 素数的判断,求0~100素数之和

    clear sum=5;         %求0-100素数之和 ss=0;          %用来标定是否是素数,0表示不是 prime=[2 3];     %用来存放素数,2,3为素数,先放置 ...

最新文章

  1. C语言的HashTable简单实现
  2. RabbitMQ 如何消息生产者producer发送给RabbitMQ服务器broker?
  3. cisco3550交换机配置手册
  4. 关于明年减半——BCH将会暴涨还是暴跌?矿工如何应对?
  5. html如何设置多个模块,在webpack中如何实现多页面开发
  6. Hadoop-2.2.0学习之一Hadoop-2.2.0变化简介
  7. 稠密峰值聚类 - Science2014
  8. equipment hierarchy download不完整的一个原因
  9. java阿里云短信服务开通验证码功能实现(1)
  10. 给开源项目贡献代码_您可以为开源做出6种非代码贡献
  11. 又一次寻找bug的经历...这次是 openlayers + chrome + win7
  12. CatBoost的Python与R实现
  13. 使用Nginx实现负载均衡
  14. NOIP2017提高组Day2T1(奶酪)题解
  15. Python爬虫新手入门教学(三):爬取链家二手房数据
  16. 我在阿里工作的这段时间里,都学到了哪些东西
  17. matlab输出以下图形,输出高品质MATLAB图形的方法与技巧_陈丽安.pdf
  18. gitlab使用Mirroring repositories远程合并代码到其他仓库
  19. url传递参数时,设置参数可以传值为空
  20. 虾皮shopee根据关键词取商品列表 API

热门文章

  1. 在AWS Lambda上部署标准FFmpeg工具——Docker方案
  2. vs2008 下配置 opencv2.0 的总结,以及 vc6 下配置 opencv1.0 的转帖
  3. python are you ready_如果要检查recv_ready(),是否必须检查exit_status_ready?
  4. 古墓丽影暗影显卡测试软件,游戏新消息:战地5古墓丽影暗影8K测试单显卡根本带不动...
  5. 安卓逆向-new-sec6-5 平头哥框架hook简介 | 类加载器 | 内部类
  6. 一文带你深入浅出C语言数组
  7. 链改价值节点,构建区块链命运共同体
  8. 二分图匹配 Hopcroft-Carp (HK) 算法详解 附例题
  9. 关于美团、饿了么外卖优惠券公众号的设计思路
  10. Portal Server搭建(wifidog安装)