《考试必备之vb实例编程代码》由会员分享，可在线阅读，更多相关《考试必备之vb实例编程代码（28页珍藏版）》请在金锄头文库上搜索。
1、第一题新建工程，界面如下图，将窗体名称改为 f1，标题属性为“我的第一个工程”， Text2 允许多行，三个命令按钮名称分别为 C1、C2、C3，单击 C1 按钮将 Text1 的字体改为黑体，Text2 的字体改为隶书。 单击 C2 按钮将 Text1 的文字颜色改为红色，Text2 的背景颜色改为蓝色。单击 C3 按钮结束程序运行。Private Sub C1_Click()Text1.Font = 黑体Text2.Font = 隶书End SubPrivate Sub C2_Click()Text1.ForeColor = vbRedText2.BackColor = vbBlueEnd
2、 SubPrivate Sub C3_Click()EndEnd Sub注意，本题的窗体和三个按钮的名称需要修改，窗体的 Caption 需要修改；text2 的 Multiline 属性需要修改文本框 text 属性建议清空第二题新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时Text1 的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1 的内容为“在窗体上抬了鼠标”。Private Sub Command1_MouseDown(Button As Integer, Shift As Integ
3、er, X As Single, Y As Single)Form1.BackColor = vbRedEnd SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = 在窗体上按下了鼠标End Sub
4、Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = 在窗体上抬起了鼠标End Sub注意：本题窗体的 Caption 属性需要修改文本框 text 属性建议清空第三题新建工程，界面如下图，运行时，在文本框 Text1 中输入内容的同时，在文本框 Text2、Text3 中显示相同的内容，但字体不同（字体自定）。Private Sub Command1_Click()Text1.Text = End SubPrivate Sub Command2_C
5、lick()EndEnd SubPrivate Sub Text1_Change()Text2.Text = Text1.TextText3.Text = Text1.TextEnd Sub文本框 text 属性建议清空文本框 font 属性修改时可以考虑修改字号、加粗 etc，尽量强化视觉效果的差异第四题设计一个窗体，如上图所示。当单击某个命令按钮时，对文本框中的文字完成相应的设置。其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5 磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框
6、中的文字加删除线。Private Sub Command1_Click()Text1.FontSize = Text1.FontSize + 5End SubPrivate Sub Command2_Click()Text1.FontSize = Text1.FontSize - 5End SubPrivate Sub Command3_Click()Text1.FontBold = Not Text1.FontBoldEnd SubPrivate Sub Command4_Click()Text1.FontItalic = Not Text1.FontItalicEnd SubPrivate
7、 Sub Command5_Click()Text1.FontUnderline = Not Text1.FontUnderlineEnd SubPrivate Sub Command6_Click()Text1.FontStrikethru = Not Text1.FontStrikethruEnd Sub第五题设计一个窗体，如下图所示。程序中将 定义成符号常量（用 Const ）,运行时，输入底面半径 r 和圆柱高 h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。运算结果为只读。Const pi = 3.1415926Dim r!, h!Private Sub Command1_
8、Click()h = Text1.Textr = Text2.TextText3.Text = pi * r * rText4.Text = 2 * pi * rText5.Text = pi * r * r * hEnd Sub左侧两个文本框从上到下分别是 text1、text2；右侧三个文本框从上到下分别是 text3、text4、text5；注意窗体、按钮、标签等控件的 Caption 属性的设置；椭圆和线条用 Shape 控件和 Line 控件实现；画图时可以考虑借助窗体表面点阵；文本框 text 属性建议留空；文本框“只读”设置对应 Locked 属性，改为 True；第六题设计界面
9、如上图所示。单击“出题”按钮，产生任意两个【1，100】之间的随机整数于 Text1、 Text2 中，单击“计算”按钮，求两个数的和。运算结果为只读。Dim a, bPrivate Sub Command1_Click()Randomizea = Fix(1 + 100 * Rnd()b = Fix(1 + 100 * Rnd()Text1.Text = aText2.Text = bEnd SubPrivate Sub Command2_Click()Text3.Text = a + bEnd Subtext3 的 locked 属性置为 true，以此设置只读；文本框 text 属性建议
10、留空记得使用 Randomize 语句进行随机数生成的初始化操作；熟练掌握指定范围内随机整数的生成方法，算是个笔试的热门考点；注意 Caption 的设置，对此后续题目将不再赘述；第七题设计一个数字钟表程序，界面如图所示。运行时单击窗体，显示当前的年月日星期及时间。Private Sub Form_Click()Label2.Caption = Year(Date)Label4.Caption = Month(Date)Label6.Caption = Day(Date)Label9.Caption = Weekday(Date)Label11.Caption = TimeEnd Sub标签文
11、字竖排的方法：输入汉字，缩减标签的宽度到只够显示一个汉字；所有标签建议放大字号，并设置“Alignment”属性为“3-Center” ；标签控件出现边框的方法：设置“BorderStyle”属性为“1-Fix Single” ；date 函数和 time 函数后的括弧可以要，但换行后会被计算机自行省略；第八题设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。文本框始终处于选中状态。Dim xPrivate Sub Command1_Click()Label2.Caption = Abs 函数的计算结果Label3.Caption = Abs(
12、x)Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command2_Click()Label2.Caption = Sqr 函数的计算结果Label3.Caption = Sqr(x)Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command3_Click()Label2.Caption = Fix 函数的计算结果Label3.Caption = Fi
13、x(x)Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command4_Click()Label2.Caption = Int 函数的计算结果Label3.Caption = Int(x)Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command5_Click()Label2.Caption = Sgn 函数的计算结果Label3.Caption =
14、Sgn(x)Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text1_LostFocus()x = Text1.TextIf Not IsNumeric(x) ThenText1.SetFocusText1.Text = End IfEnd Sub用于显示结果的标签需修改 BorderStyle 属性；此外建议修改 Alignment 属性调节对齐方式；“Text1_LostFocus”事件中的代码是典型的限定数值型输入的语句，建议记忆；所有限定数值型数据的输入均可用此法处
15、理；if 语句部分如果觉得接受起来困难的话可以考虑略去；命令按钮 Click 事件中的后三行代码，是选择文本框中全部内容的定式句法，建议记忆第九题请按图设一个大小能自动调整以适应其显示图片的尺寸的图片框（Picture1）以及“显示”和“清空”两个按钮（Command1、Command2） 。运行时，单击“显示” ，在图片框中显示自选图片；单击“清空”则清空图片框。Private Sub Command1_Click()Picture1.Picture = LoadPicture(App.Path & aaa.jpg)End SubPrivate Sub Command2_Click()Pic
16、ture1.Picture = LoadPicture()End Sub图片框“Autosize”属性需要设置为 True；双引号内的aaa.jpg 根据实际所加图片名称自行调整；这是调用图片的基本结构；第十题设计一个窗体 Forml，界面如上图所示。编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。Const pi = 3.1415926Private Sub Command1_Click()Dim x!x = Text1.TextText2.Text = x 2 * pi上面这句也可以这么写： text2.text = x * x * piText3.Text = x * 2 * piEnd Sub第十一题设计一个计算购书价钱的程序，界面如下图所示。为了提高运行速度，设置 Tab 键序，使得输入完单价后，焦点定位到输入数量文本框中。单击“计算
