VB上机试验重庆医科大学Visual Basic 期末考试.docx
- 文档编号:3087545
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:21
- 大小:154.01KB
VB上机试验重庆医科大学Visual Basic 期末考试.docx
《VB上机试验重庆医科大学Visual Basic 期末考试.docx》由会员分享,可在线阅读,更多相关《VB上机试验重庆医科大学Visual Basic 期末考试.docx(21页珍藏版)》请在冰点文库上搜索。
VB上机试验重庆医科大学VisualBasic期末考试
上机试验一
1.中英文切换程序。
鼠标单击“中文”命令按钮后,在标签中显示中文“谢谢光临!
”;如果单击“英文“命令按钮后,在标签中显示英文“Thanksforyourattendance!
”,如图所示。
窗体文件名为SY1-2,工程文件名也为SY1-2。
上机试验二
1.在窗口中添加一个标签,设置BorderStyle属性为有边框,编写程序代码实现:
单击窗体后,标签上显示如图所示的信息,标签文字字体设置为隶书,文字大小20,加粗,倾斜,下画线。
完成后保存文件,窗体文件名为SY2-1,工程文件名也为SY2-1。
2.在窗体上,按下鼠标右键拖动,在窗体的标题栏中显示鼠标指针的坐标位置。
完成后保存文件,窗体文件名为SY2-2,工程文件名也为SY2-2。
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
Form1.Caption=X&","&Y
EndIf
EndSub
3.在窗体上,按下鼠标左键,窗体的背景色变为绿色,并显示“按下鼠标键,触发MouseDown事件”;松开鼠标左键,窗体的背景色变为红色,并显示“松开鼠标键,触发MouseUp事件”。
完成后保存文件,窗体文件名为SY2-3,工程文件名也为SY2-3。
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
Me.BackColor=vbGreen
Me.Print"按下鼠标键,触发MouseDown事件"
EndIf
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Cls
IfButton=1Then
Me.BackColor=vbRed
Me.Print"松开鼠标键,触发MouseUp事件"
EndIf
EndSub
4.运行程序时,按下某个键,在窗体上显示其Ascii值和对应的按下的键名。
如在键盘上依次按下“A”、“Y”、“7”、“,”和“<”键的运行结果如图。
窗体文件名为SY2-4,工程文件名为SY2-4。
PrivateSubForm_Activate()
PrintTab
(1);"keyascii值";Tab(15);"对应的按下的键名"
EndSub
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
PrintKeyAscii;Tab(15);Chr(KeyAscii)
EndSub
上机试验三
1.在两文本框中输入数据,单击等号命令按钮,结果显示在标签中,如图所示。
完成后保存文件,窗体文件名为SY3-2,工程文件名也为SY3-2。
2.编写程序实现窗体一出现时(Load事件过程),用Print语句在窗体第六行20列处开始打印显示“Hello,World!
”。
完成后保存文件,窗体文件名为SY3-3,工程文件名也为SY3-3。
(1.注意在开头加上Form1.AutoRedraw=True!
PrivateSubForm_Load()
Form1.AutoRedraw=True
Show
Fori=1To6
Ifi=6Then
PrintTab(20);"hello,world!
"
Else
Print""
EndSub
3.编写程序实现窗体一出现时(Load事件过程),用Print方法在窗体上显示计算机系统当前的日期和时间,要求字体加粗、倾斜、下画线,字的颜色为红色。
窗体文件名为SY3-4,工程文件名也为SY3-4。
PrivateSubForm_Load()
Show
Form1.FontBold=True
Form1.ForeColor=vbRed
Form1.FontUnderline=True
Form1.FontItalic=True
Print"系统当前的日期和时间;"&Now
EndSub
上机试验四
1.
如图所示,编写程序代码实现单击命令按钮两文本框中内容的互换。
工程文件名:
sy4-1;窗体文件名:
sy4-1
PrivateSubCommand1_Click()
t=Text1.Text
Text1.Text=Text2.Text
Text2.Text=t
EndSub
2.
添加2标签和2文本框,运行时在第一个文本框中输入一个字符,然后按回车键,对应字符的ASCII编码值显示在第二个文本框中。
工程文件名:
sy4-2;窗体文件名:
sy4-2
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
KeyAscii=13
Text2.Text=Asc("text1.text")
EndSub
提示:
用KeyPress事件,回车键ASCII值为13
3.编写程序,调用InputBox函数输入存款的本金X和存款年限N,计算若干年后本金和利息的总和是多少?
假设年利率固定为4%,计算公式为:
总计=本金*(1+4%)N,计算的结果通过调用MsgBox函数显示。
工程文件名:
sy4-3;窗体文件名:
sy4-3
PrivateSubForm_Click()
Dimx%,n%,s&
x=InputBox("请输入本金")
n=InputBox("请输入年限")
s=x*(1+0.04)*n
MsgBox"本金与利息总和为:
"&s
EndSub
4.编写程序,单击命令按钮显示一个[100,300]之间的随机整数和一个随机大写英文字母。
在显示这些信息之前,清除掉旧信息。
工程文件名:
sy4-4;窗体文件名:
sy4-4
PrivateSubCommand1_Click()
Dimx%,y
Cls
x=Int(Rnd*201+100)
y=Chr(65+Int(Rnd*26))
Printx;y
EndSub
上机试验五
1.运行时单击窗口,调用Inputbox函数输入一个数,判断其是否为正整数,如果为正整数判断其奇偶性,把结果信息显示在MsgBox对话框上,保存窗体sy5-1,工程sy5-1。
2.运行时单击窗口,随机产生一个1000-9999间的整数,判断其是否是6的倍数。
用Print方法把产生的随奇数和判断结果显示在窗口上。
保存窗体sy5-2,工程sy5-2。
3.设银行的定期存款利率为:
一年期2.52%,二年期3.06%,三年期3.69%,五年期4.14%。
请输入存款金额,并选择存款年限,编程计算到期利息。
保存窗体sy5-3,工程sy5-3。
上机试验六
1.利用两种循环语句计算1+2+3+……+100的结果。
保存窗体sy6-1,工程sy6-1
PrivateSubForm_Click()
Dims%,i%
s=0
Fori=1To10
s=s+i
Nexti
Prints
EndSub
2.利用一种循环语句计算12的阶乘。
保存窗体sy6-2,工程sy6-2。
PrivateSubForm_Click()
Dims&,i%
s=1
Fori=1To12
s=s*i
Nexti
Prints
EndSub
3.利用Inpubox函数输入2个正整数,求其最小公倍数,结果用Msgbox函数显示。
保存窗体sy6-3,工程sy6-3。
PrivateSubForm_Click()
Dimr%,m%,n%,s%,i%
m=Val(InputBox("请输入一个正整数"))
n=Val(InputBox("请输入一个正整数"))
Ifm t=m: m=n: n=t EndIf s=m*n Do r=mModn m=n n=r LoopUntilr=0 i=s/m MsgBox"最小公倍数"&i EndSub 4.利用Inpubox函数输入1个正整数,判断其是否为质数(素数),结果用Msgbox函数显示。 保存窗体sy6-4,工程sy6-4。 PrivateSubForm_Click() Dimx%,r%,i% x=Val(InputBox("请输入一个整数")) Fori=2Tox/2 r=xModi Nexti Ifi=0Then MsgBox"该数为质数" Else MsgBox"该数不为质数" EndIf EndSub 5. 利用循环语句和Print方法,产生如图所示的星号图形。 保存窗体分别为sy6-5、sy6-6、sy6-7,工程sy6-5、sy6-6、sy6-7。 第一题 PrivateSubForm_Click() Dimi%,k% Fori=1To9 PrintTab(i); Fork=1To8 Print"*"; Nextk Nexti EndSub 第二题 PrivateSubForm_Click() Dimi%,k% Fori=1To9 PrintTab(i*2-1) Fork=1To17-(i-1)*2 Print"*"; Nextk Nexti EndSub 上机试验七 1.随机产生12个两位整数,放在数组中,用Print方法显示出每个元素的值;同时计算这些随机数的平均值,用Print方法显示出来。 与第三题同理 2.随机产生8个三位整数,放在数组中,用Print方法显示出每个元素的值;同时找出这些随机数中的最小数,用Print方法显示出来。 PrivateSubForm_Click() Dima(1To12)AsInteger,i% Fori=1To12 a(i)=Int(Rnd*90+10) Printa(i); Nexti Min=a (1) Fori=2To12
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB上机试验重庆医科大学Visual Basic 期末考试 VB 上机 试验 重庆 医科大学 Visual