实验任务12参考
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
课程名称:程序设计基础VB
实验名称——实验十二 数组(3)& 过程(1)
一、实验目的:
1.掌握控件数组使用
2.掌握函数过程的定义和调用
二、实验内容(包括实验要求(题目)、实验步骤、程序清单、运行情况):
实验1 执行时在窗体上生成10个文本框,构成控件数组,并在其中显示10个随机整数,通过按钮将其中的数值按从小到大的顺序排列。
分析:控件数组的生成参照课本212页LOAD法“建立控件数组”,先在窗体上设置控件数组中的第一个控件Lblnum(0)和Txtnum(0),然后再由程序生成其他的9个控件元素;排序要求采用选择法。
注意:排序的对象是文本控件数组,文本控件的Text属性为字符类型,而排序是根据文本控件中内容的数值大小进行的,控件数组的下标总是从0开始,注意排序算法的修正
(1)界面设计:在窗体上摆放好一个命令按钮、一个标签和一个文本框。
(2)属性设置
表 实验属性设置
对象
属性名
属性值
命令按钮
Name
CmdSort
Caption
排 序
标签
Name
Lblnum
Index
0
文本框
Name
Txtnum
Index
0
(a)排序前 (b)排序后
图 实验参考界面
(3)完善程序代码:
Private Sub Form_Load()
Dim i As Integer
Randomize
Txtnum(0).Text = Int(Rnd * 100) + 1
Lblnum(0).Caption = “第1个数”
For i = 1 To 9
Load Txtnum(i)
Txtnum(i).Top = Txtnum(0).Top + i * (Txtnum(0).Height)
Txtnum(i).Visible = True
Txtnum(i).Text = Int(Rnd * 100) + 1
Load Lblnum(i)
Lblnum(i).Top = Lblnum(0).Top + i * (Lblnum(0).Height)
Lblnum(i).Visible = True
Lblnum(i).Caption = "第" & i + 1 & "个数" '填写程序代码段实现图a效果,参阅课本212页LOAD法
Next i
End Sub
Private Sub CmdSort_Click()
Dim i As Integer, j As Integer, temp As String
For i = 0 To 8
For j = i + 1 To 9
If Txtnum(i) > Txtnum(j) Then
temp = Txtnum(i): Txtnum(i) = Txtnum(j): Txtnum(j) = temp
End If
Next j
Next i '填写程序代码段实现文本框中数据值的排序,参阅课本221~222页
End Sub
实验2编写一个产生[a, b]区间随机整数的函数,在窗体事件中调用验证其正确性。
Private Sub Form_Click()
Dim m As Long, n As Long, x As Long
m = Val(InputBox("请输入生成随机整数的区间范围[m,n]中m的值:"))
n = Val(InputBox("请输入生成随机整数的区间范围[m,n]中n的值:"))
x = RanInt(m, n) ‘调用函数RanInt,生成[m,n]范围内的随机整数
MsgBox "产生[" & m & "," & n & "]之间的随机整数为" & x
End Sub
Private Function RanInt(a As Long, b As Long) As Long
RanInt = Int(Rnd*(b-a+1)+a)
End Function
实验3计算m!+(m+1)!+…+n!之和(要求m
格式
pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载
,模仿例题,完成和掌握函数过程的定义(根据题目功能要求,仔细推敲形参设置的数量、类型要求,注意:函数过程定义时,强调的是功能的通用性,一般不考虑输入和输出,即与输入和输出界面对象无关,通常函数中需要处理的数据是通过主调程序中实参传递给形参得到,而处理结果是通过函数名返回给主调程序,在主调程序
中考
中考数学全套课件中考心理辅导讲座中考语文病句辨析修改中考语文古诗文必背中考单选题精选
虑输出结果)
(2)掌握函数过程的调用方法(注意实参必须与定义过程中的形参在数量、顺序和类型上做到一致)
实验4编写一个逆序函数,实现回文数的判断。
提示:在主程序中调用逆序数函数,判断原数是否与逆序数相同,从而给出是否是回文数的结论
Private Function Invert(byval SS As String) As String
Dim i As Integer
For i = Len(SS) To 1 Step -1
Invert = Invert & Mid(SS, i, 1)
Next i
End Function
Private Sub CmdJudge_Click()
Dim s As String
s = TxtS
If s = Invert(s) Then ‘调用逆序函数Invert,若逆序结果与原数据s相同,则是回文数
LblResult.Caption = s & "是回文数"
Else
LblResult.Caption = s & "不是回文数"
End If
End Sub
实验5编写判断是否是素数的函数过程,要求在主程序中通过调用过程,给出具体数据是否是素数的结论。
提示:要求自己编写好判断是否是素数的函数,在主程序中调用此素数函数,给出具体数据是否是素数的结论(注意:若函数处理的结果是两种状态信息,则通常将函数返回值设置为Boolean,用True或False表示;主程序中往往利用if语句调用函数,完成条件判断,并输出结果)
Private Sub Form_Click() '在窗体的单击事件过程中,调用Prime函数
Dim a As Integer
a = InputBox(“请输入一个正整数”)
If Prime(a)= True Then '调用函数过程Prime,进行条件判断,输出对应的结果,此处也可简化为, _
If Prime(a) Then
Print a; "是素数"
Else
Print a; "不是素数"
End If
End Sub
Function Prime(byval n As Integer) As Boolean '函数过程Prime判断n是否是素数
Dim i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then Exit Function
Next I
If i = n Then
Prime=True
Else
Prime=False
EndIf
End Function
PAGE
1