VB操作题部分

上传人:206****923 文档编号:41631295 上传时间:2018-05-30 格式:DOC 页数:9 大小:214.50KB
返回 下载 相关 举报
VB操作题部分_第1页
第1页 / 共9页
VB操作题部分_第2页
第2页 / 共9页
VB操作题部分_第3页
第3页 / 共9页
VB操作题部分_第4页
第4页 / 共9页
VB操作题部分_第5页
第5页 / 共9页
点击查看更多>>
资源描述

《VB操作题部分》由会员分享,可在线阅读,更多相关《VB操作题部分(9页珍藏版)》请在金锄头文库上搜索。

1、1Vb 填空题、操作题部分试题 切勿丢失VB 操作题部分操作题部分VB1打开“考生文件夹18”文件夹中的文件“工程1.vbp”,进行以下操作后并保存!填空完成程序,使程序实现如下功能:从键盘输入10个100以内的 整数,单击命令按钮后在窗体上输出其中的最大 数,最小数和平均值。 Private Sub Command1_Click()Dim x As Integerx = InputBox(“请输入您的数:“)Print “您输入的数有“ “、“;Max = x: Min = x: Sum = xFor i = 2 To 10x = InputBox(“请输入您的数“): Print x;Su

2、m = Sum + xIf MaxxMaxx Then Max = xIf Min 0 And x 3 And x x 10 Then y = 26+(x-10)26+(x-10)* 3If x = 60 ThenLabel1.Caption = “及格“End If If a 0 Then py=“正数“ If a=0 Then py=“零“If ato)As 例1 dim a(1 to 10) As Integer a数组有10个元素 或者: Dim 数组名(to)dim a%(1 to 10) 通过循环给数组赋值 For i= 1 to 10a(i)=inputbox(“输入第 (”& I &”) 的值) 循环10次,每次填入一个数字分别存入a(1),Next Ia(2),a(3)a(10)

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 行业资料 > 其它行业文档

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号