VB语言程序设计001.docx
- 文档编号:17544349
- 上传时间:2023-07-26
- 格式:DOCX
- 页数:13
- 大小:975.53KB
VB语言程序设计001.docx
《VB语言程序设计001.docx》由会员分享,可在线阅读,更多相关《VB语言程序设计001.docx(13页珍藏版)》请在冰点文库上搜索。
VB语言程序设计001
第一题
设计程序,从文本框中输入一个整数n(n<500),单击“处理”按钮是产生3个1~n的随机整数,并分别显示在3个标签中。
程序如下:
Private Sub Form_Load() ‘加载
Dim n As Integer, a As Integer ‘定义随机变量
Dim b As Integer, c As Integer
Randomize ‘使rnd函数产生不同序列的随机数
n = Val(InputBox("请输入一个正整数n(n<500)")) 'inputbox函数产生对话框供用户输入数值
a = Int(n * Rnd) ‘在小于n的数内随机选取一树值“下同”
b = Int(n * Rnd)
c = Int(n * Rnd)
Label1.Caption = a ‘随机选取的数值n显示在标签上面“下同”
Label2.Caption = b
Label3.Caption = c
End Sub ‘结束运行
第二题
设计程序,在窗体上建立5个文本框和1个命令按钮,利用4个文本框输入4个数,单击命乏按钮进行处理,求出这4个数中的最大数显示在第5个文本框中 [提示]①数值的数据类型可以定义为单精度型;②可以参考例4.2的处理方法;也可以分两组数(2个数为一组)进行比较,再从两组数中的较大数中求出最大数.
程序如下:
Private Sub Command1_Click() '执行
Dim m As Single, a As Single '定义变量为单精度
Dim b As Single, c As Single
Dim d As Single
a = Val(Text1.Text) '为变量赋值
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
If a > b Then ‘利用if与else语句来判断大小a与b的大小
m = a '将较大值赋给m
Else:
m = b
End If
If c > m Then '上步判断出的较大值与第三个值c进行比较
m = c
Else:
m = m
End If
If d > m Then
m = d
Else:
m = m
End If '结束if语句
Text5.Text = m '在文本框5中显示最大值m
End Sub '结束
Private Sub Form_Load() '加载
Text1.Text = "" '刚运行时文本内容为空“下同”
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub '结束
第三题
设计程序,在窗体上建立一个列表框Listl和一个“显示”命令按钮Commandl。
列表框中已有5个列表项,依次为“表项1”~“表项5”。
程序运行后,可以通过多次单击来选中多个列表项。
单击“显示”按钮,在窗体上输出所有选中的列表项,如图5.13所示
程序如下:
Private Sub Form_Load()
Show
List1.AddItem "表项一"
List1.AddItem "表项二"
List1.AddItem "表项三"
List1.AddItem "表项四"
List1.AddItem "表项五"
End Sub
Private Sub command1_click() '“显示”
For i = 0 To List1.ListCount - 1 '逐项判断
If List1.Selected(i) Then'选中的的表项显示在窗体上
Print List1.List(i)
End If
EndSub
第四题
已知学号由8个数码组成,如11234301,其中从左算起前2位表示年级,第5个数码的表示学生类型,学生类型规定如下:
2——博士生,3——硕士生,4——本科生,5——专科生 设计程序,从文本框中输入一个字号,单击命令?
按钮时进行处理,然后在另外两个文本框中显示该生的年级及学生类型(中文表示)
程序如下:
Private Sub command1_click() '执行
Dim x As String,n As Integer,m As String '定义相关变量
x = Text1.Text '在第一个文本框中输入x即学生的学号
n = Val(Mid(x, 5, 1)) '通过mid型函数选择出字符x的第五个字符,并转换为数值将值赋给n
m = Left(x, 2) '取x左边的两个字符
Text2.Text = m '在第二个文本框里面显示m
Select Case n '利用select case语句进行判断
Case 2
Text3.Text = "博士生"
Case 3
Text3.Text = "硕士生"
Case 4
Text3.Text = "本科生"
Case 5
Text3.Text = "专科生"
Case Else
Text3.Text = "学号无效"
End Select '结束select
End Sub
第五题
编写程序,用数组建立一个8×8的矩阵,数组元素值是10~99范围内的随机整数,求解下列问题并输出结果:
(1)求所有元素之和;
(2)求各行元素之和;(3).求主对角线元素之和;(4)求所有靠边元素之和
程序如下:
Private Sub Form_Load()
Dim a(8, 8) As Integer, i As Integer
Dim j As Integer, s As Integer
Show
Randomize
For i = 1 To 8 '控制行数
For j = 1 To 8 '控制列数
a(i, j) = Int(90 * Rnd+10)'随机数存放在数组的i行j列中
Next j
Next i
s = o '合计前清0
For i = 1 To 8
For j = 1 To 8
s = s + a(i, j)
Next j
Next i
Print "所有元素之和:
"; s
For i = 1 To 8
s = o
For j = 1 To 8 '控制列数
s = s + a(i, j) '累加同一行元素值
Next j
Print "第"; i; "行元素之和:
"; s
'输出当前行元素之和(下同)
Next i
For i = 1 To 8
s = o
s = s + a(i, i)
Next i
Print "主对角线元素之和:
"; s
s = o
For i = 1 To 8
For j = 1 To 8
If i = 1 Or i = 8 Or j = 1 Or j = 8 Then
s = s + a(i, j)
End If
Next j
Next i
Print "所有靠边元素之和:
"; s
End Sub
第六题
设计有两个窗体的程序,运行开始时只显示Form2窗体,单击Form2上的C2按钮时,显示Form1窗体;单击Form1窗体上的C1按钮时,则Form1窗体消失。
把Form2设置为启动对象,C1,C2按钮⊥的标题分别为“隐藏”和“显示”.
窗体2的代码窗体1的代码
Privatesubcommand2_click()privatesubcommand1_click()
Form1.show'显示Form1.Hide'隐藏
EndsubEndSub
第七题
为标签增加一个弹出式菜单,该菜单中包含有“红色”、“蓝色”和“绿色”3个选项,当右击标签时弹出菜单,从菜单中选择相应的选项可以改变标签中文字的颜色
程序如下:
OptionExplicit'强制显式声明变量
Dimsel1AsString
PrivateSubform_load()
Label1.FontSize=20'标签字体大小为20
sel1=""'颜色标记
EndSub
PrivateSubmnu11_click()'“红色”
sel1="红色"
EndSub
PrivateSubmnu12_click()'“绿色”
sel1="绿色"
EndSub
PrivateSubMnu13_click()'“蓝色”
sel1="蓝色"
EndSub
PrivateSubform_click()
SelectCasesel1
Case"红色"
Label1.ForeColor=RGB(255,0,0)'标签字体颜色为红色(下同)
Case"绿色"
Label1.ForeColor=RGB(0,255,0)
Case"蓝色"
Label1.ForeColor=RGB(0,0,255)
EndSelect'结束select语句
EndSub
PrivateSubForm_mouseup(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)
Ifbutton=2Then'检查是否右击,左击为1,右击为2
PopupMenumnu10'mnu10是“颜色”菜单项
EndIf'结束if语句
EndSub
PrivateSubmnu20_Click()'“退出“
End
EndSub
第八题
在窗体上建立一斤通用对话框、一个文本框和2个按钮,如图10.14所示。
按照以下要求设计程序:
单击“选择文件”按钮时,弹出“打开文件”对话框,其默认路径为“C:
\”,默认列出的文件扩展名为.txt(文本文件)和.doc(文档文件),用户选定路径及文件名后,该路径及文件名显示在窗体的。
程序如下:
Private Sub Command1_Click() '打开文件
CommonDialog1.DialogTitle = "文件打开"
CommonDialog1.Filter= "文本文件|*.txt文档文件|*.doc"'设置文件过滤器
CommonDialog1.InitDir = "c:
\" '默认文件夹
CommonDialog1.ShowOpen '显示“打开”对话框
Text1.Text = CommonDialog1.FileName'将选定的文件路径及文件名显示在文本框中
End Sub
Private Sub Command2_Click()
Unload Me
End '结束
End Sub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 语言程序设计 001