欢迎来到天天文库
浏览记录
ID:3902742
大小:447.22 KB
页数:11页
时间:2017-11-25
《实验一 vb基础练习》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、数据库技术及应用实验一要求:实验一的8个小实验集成在一个项目中,项目名为:实验一_学号_姓名,例如:实验一_091233_张华。8个小实验分别用10个窗体(其中实验7需要2个窗体)完成。实验一项目的解决方案资源管理器:主窗体MainForm运行界面1数据库技术及应用实验一提示:主窗体主要属性设置:IsMdiContainer为True(设置主窗体为多文档界面容器);WindowState为Maximized(运行时最大化)主窗体部分代码:PublicClassMainFormPrivateSub退出Tool
2、StripMenuItem_Click(…)…Application.Exit()EndSubPrivateSub实验1ToolStripMenuItem_Click(…)…Dimf1AsNewshiyan1()f1.MdiParent=Mef1.Show()EndSubPrivateSub实验2ToolStripMenuItem_Click(…)…Dimf2AsNewshiyan2()f2.MdiParent=Mef2.Show()EndSub….EndClass实验1:掌握TextBox、GroupBo
3、x、Button等控件的应用。功能:设计文本框1的字体;将文本框1的选定内容复制到文本框2中。2数据库技术及应用实验一提示:字体设置TextBox1.Font=NewFont("隶书",25,FontStyle.BoldOrFontStyle.Italic)实验2:已知鸡和兔的头数之和、脚数之和,求鸡的个数和兔的个数。脚数必须输入偶数。3数据库技术及应用实验一部分代码提示:PrivateSubTextBox2_KeyDown(…)…Ife.KeyCode=Keys.EnterThenDimx,yAsInte
4、ger'x--鸡数,y--兔数IfString.IsNullOrEmpty(TextBox2.Text.Trim())OrString.IsNullOrEmpty(TextBox1.Text.Trim())Then‘IsNullOrEmpty判断字符串是否为NULL或空MessageBox.Show("'头数和脚数'必须给出","警告")ExitSubEndIf……EndIfEndSub4数据库技术及应用实验一实验3:求解1元2次方程的根。要求:实根、虚根都求出来。实验4:生成10个30~100之间的随机整
5、数,并求出最小值、最大值和平均值。要求:每次调用实验3产生不同的随机整数。提示:Randomize()'为随机函数产生不同的初始种子产生一个30~100之间的随机整数的方法:Int(Rnd()*(100-30+1)+30)5数据库技术及应用实验一实验5:判断回文数。要求:必须使用函数来判断回文数,如果是回文数,函数返回true,否则返回false,在程序中调用该函数。提示:Functionish(ByValsAsString)AsBooleanish=TrueForiAsInteger=1Tos.Lengt
6、hIfMid(s,i,1)<>Mid(s,s.Length-i+1,1)Thenish=FalseExitForEndIfNextEndFunction6数据库技术及应用实验一实验6:配置电脑。要求:每次单击“确定”按钮后,清空listbox以前的配置,显示新的配置。提示:ListBox1.Items.Add(ComboBox1.Text)实验7:功能见运行界面,掌握窗体的调用和值得传递。7数据库技术及应用实验一初始运行界面产生随机数后的操作界面调用统计菜单后的界面8数据库技术及应用实验一部分代码提示:Pr
7、ivateSub删除最大数ToolStripMenuItem_Click(…)…ListBox1.Items.Remove(maxx)'删除最大值'总数重新计算sum=sum-maxx'最大项重新计算maxx=0DimiAsIntegerFori=0ToListBox1.Items.Count-1Ifmaxx8、小写),找到的字符串以蓝色背景标识出来。9数据库技术及应用实验一10数据库技术及应用实验一代码提示:PrivateSubButton3_Click(…)…‘"查找"按钮,查找.NETRichTextBox1.Focus()StaticjAsInteger'静态变量保留前一次查找到的位置j=InStr(j+1,UCase(RichTextBox1.Text),".NET")'从原来找到的".NET"下一个字符起继续
8、小写),找到的字符串以蓝色背景标识出来。9数据库技术及应用实验一10数据库技术及应用实验一代码提示:PrivateSubButton3_Click(…)…‘"查找"按钮,查找.NETRichTextBox1.Focus()StaticjAsInteger'静态变量保留前一次查找到的位置j=InStr(j+1,UCase(RichTextBox1.Text),".NET")'从原来找到的".NET"下一个字符起继续
此文档下载收益归作者所有