没有合适的资源?快使用搜索试试~ 我知道了~
VB程序设计题电子版.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 81 浏览量
2022-06-20
15:43:37
上传
评论
收藏 40KB DOC 举报
温馨提示
试读
4页
程序设计题电子版 (事件)单击事件。 (响应)生成一个一维数组(10个数组元素依次为15、32、72、43、96、18、3、177、 88、17),写程序求出这个数组的最大值、最小值和平均值,并输出在窗体上。将最大 值、最小值、平均值分别存入变量Max、Min、Aver中。 答案: Dim a(9) As Integer Dim i, s As Integer a(0) = 15 a(1) = 32 a(2) = 72 a(3) = 43 a(4) = 96 a(5) = 18 a(6) = 3 a(7) = 177 a(8) = 88 a(9) = 17 Max = a(0) Min = a(0) s = 0 For i = 0 To 9 If a(i) > Max Then Max = a(i) End If If a(i) < Min Then Min = a(i) End If s = s + a(i) Next aver = Int(s / 10) Print (CStr(Max)) Print (CStr(Min)) Print (CStr(aver)) (事件)单击按钮"
资源推荐
资源详情
资源评论
1
VB 程序设计题电子版
程序设计题电子版
1.(事件)单击事件。
(响应)生成一个一维数组(10 个数组元素依次
为
15、32、72、43、96、18、3、177、88、17),写
程序求出这个数组的最大值、最小值和平均值,并
输出在窗体上。将最大值、最小值、平均值分别存
入变量 Max、Min、Aver 中。
答案:
Dim a(9) As Integer
Dim i, s As Integer
a(0) = 15
a(1) = 32
a(2) = 72
a(3) = 43
a(4) = 96
a(5) = 18
a(6) = 3
a(7) = 177
a(8) = 88
a(9) = 17
Max = a(0)
Min = a(0)
s = 0
For i = 0 To 9
If a(i) > Max Then
Max = a(i)
End If
If a(i) < Min Then
Min = a(i)
End If
s = s + a(i)
Next
aver = Int(s / 10)
Print (CStr(Max))
Print (CStr(Min))
Print (CStr(aver))
2.(事件)单击按钮“绘制”。
(响应)利用“@”字符打印如下图字母“T”.要求:
字母“T”的横线和竖线分别用一维 For 循环语句打
印,使用 Tab()函数定位。(其中横线有 19 个
“@”字符,竖线有 10 个“@”字符)。
答案:
For i = 1 To 19
Print "@";
Next i
For i = 1 To 10
Print Tab(10); "@"
Next i
3.(事件)单击窗体
(响应)求 200~300 之间既能被 3 整除又能被 7
整除的数并打印。并求出所有数之和存入变量
SUM 中并打印。
答案:
Dim i As Integer
For i = 201 To 300
If ((i Mod 3) = 0 And (i Mod 7) = 0) Then
Print (CStr(i))
Sum = Sum + i
End If
Next
Print Sum
4.(事件)单击窗体
( 响 应 ) 在 窗 体 上 打 印 数 列
2/1,3/2,5/3,8/5,13/8……的前 10 项,并求其和。
答案:
Dim i, j, k, m As Integer
s = 0
i = 2
j = 1
For k = 1 To 10
m = j
Print (CStr(i)) & "/" & (CStr(j))
j = i
i = i + m
s = s + i / j
Next
Print s
5.(事件)单击窗体
(响应)求出 1000~9999 之间具有如下特点的四
位数字,它的算数平方根恰好就是它中间的两位数
字,例如,2500 开平方根为 50,恰为 2500 的中间
两位,找出所有这样的四位数并打印。并求出所有
这样的数的和存入 SUM 中。
答案:
资源评论
是空空呀
- 粉丝: 171
- 资源: 3万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功