注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

纪念册~~

 
 
 

日志

 
 

VB实验内容(六)  

2010-11-19 15:42:15|  分类: 学海无涯 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

实验题目1:

编写程序,定义包含10个数组元素的一维数组,给一维中的数组元素赋值为3,6,9,12……数据,并输出。

实验题目1源程序代码:

Private Sub Command1_Click()

Dim s(1 To 10) As String

Dim i%

For i = 1 To 10 Step 1

s(i) = 3 * i

Print s(i)

Next i

End Sub

 

 

实验题目2:

编写程序,定义包含5个元素的数组,存放学生成绩,在程序中应用inputbox函数输入学生的成绩,要求计算出学生成绩的平均值。

实验题目2源程序代码:

Private Sub Command1_Click()

Dim i As Integer

Dim score(1 To 5), sum, ave As Single

  sum = 0

For i = 1 To 5

score(i) = Val(InputBox("请输入学生成绩"))

sum = sum + score(i)

Next i

ave = sum / 5

Text1.Text = sum

Text2.Text = ave

End Sub

 

 

实验题目3:

定义一个包含10个整型数组元素的一维数组,数组元素的值应用随机函数产生(1-50),统计出数组元素中的奇数个数与偶数个数。

实验题目3源程序代码:

Private Sub Command1_Click()

Dim s(1 To 10) As String

Dim a%, b%, i%

For i = 1 To 10 Step 1

s(i) = Int(Rnd * 50)

Print s(i)

If s(i) Mod 2 <> 0 Then

a = a + 1

Else

b = b + 1

End If

Next i

Text1.Text = a

Text2.Text = b

End Sub

 

  

实验题目4:

编写程序,定义一个包含70个元素的数组,应用随机函数产生70个学生的成绩(成绩范围为:50~100),并统计出成绩的最大值。

提示:假设第一个成绩最大max,用后面的成绩逐个和max进行比较。即打擂台算法实现。

实验题目4源程序代码:

Private Sub Command1_Click()

Dim s(1 To 70) As Integer

Dim i%, max%

max = s(1)

For i = 1 To 70 Step 1

s(i) = Int(Rnd * 50 + 50)

If max < s(i) Then max = s(i)

Next i

Text1.Text = max

end sub

 

  

实验题目5:

输入下面的程序代码,多次单击command1命令按钮,比较两种静态数组的区别

实验题目5源程序代码:

Option Base 1

Private Sub Command1_Click()

Static a(5) As Integer: Dim b(5) As Integer

For i = 1 To 5

a(i) = a(i) + 2: b(i) = b(i) + 2

Next i

For i = 1 To 5

Print a(i), b(i);

Next i

End sub

  评论这张
 
阅读(83)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018