2022年VB上机练习题.pdf
《2022年VB上机练习题.pdf》由会员分享,可在线阅读,更多相关《2022年VB上机练习题.pdf(21页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、VB上机练习题1、新建工程 ,界面如下图 ,将窗体名称改为f1,标题属性为“我的第一个工程”, Text2 允许多行 ,三个命令按钮名称分别为C1、C2、C3,单击 C1 按钮将 Text1 的字体改为黑体,Text2 的字体改为隶书。单击C2 按钮将 Text1 的文字颜色改为红色,Text2 的背景颜色改为蓝色。单击C3 按钮结束程序运行。Private Sub Command1_Click() Text1、Font = 黑体End Sub Private Sub Command2_Click() Text1、ForeColor = vbRed Text2、ForeColor = vbBl
2、ue End Sub Private Sub Command3_Click() End End Sub2、新建工程 ,界面如上图 ,运行时 ,鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色,鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1 的内容为“在窗体上按下了鼠标”,鼠标抬起时使Text1 的内容为“在窗体上抬起了鼠标”。Private SubCommand1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1、BackColor = vbRed End S
3、ub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1、BackColor = vbGreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1、Text = 在窗体上按下了鼠标 End Sub Private SubForm_MouseUp(Button As Integer, Shift A
4、s Integer, X As Single, Y As Single) Text1、Text = 在窗体上抬起了鼠标 End Sub 3、新建工程 ,界面如下图 ,运行时 ,在文本框Text1 中输入内容的同时,在文本框Text2、Text3 中显示相同的内容 ,但字体不同 (字体自定 )。Private Sub Command1_Click() Text1、Text = Text2、Text = Text3、Text = End Sub Private Sub Command2_Click() End End Sub Private Sub Text1_Change()Text2、Text
5、 = Text1、Text Text3、Text = Text1、Text End Sub 注:“字体不同”可以在属性那调“Font”Text2 Text1 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页,共 21 页 - - - - - - - - - - VB上机练习题4、 设计一个窗体 , 如上图所示。当单击某个命令按钮时, 对文本框中的文字完成相应的设置。其中,每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5 磅, “粗体”按钮将使文本框中的文字加粗 ,“斜体” 按钮将使文本
6、框中的文字倾斜,“下划线” 按钮将使文本框中的文字加下划线,“删除线”按钮将使文本框中的文字加删除线。Private Sub Command1_Click() Text1、FontSize = Text1、FontSize + 5 End Sub Private Sub Command2_Click() Text1、FontSize = Text1、FontSize - 5 End Sub Private Sub Command3_Click() Text1、FontBold = True End Sub Private Sub Command4_Click( ) Text1、FontItal
7、ic = True End Sub Private Sub Command5_Click() Text1、FontUnderline = True End Sub Private Sub Command6_Click() Text1、FontStrikethru = True End Sub5、 设计一个窗体 , 如下图所示。程序中将定义成符号常量( 用 Const ),运行时 , 输入底面半径r 与圆柱高 h, 然后单击“计算”命令按钮,在相应文本框中显示计算结果。运算结果为只读。Private Sub Command1_Click() Const pi = 3、14 h = Val(Tex
8、t1) r = Val(Text2) Text3、Text = pi * r 2 Text4、Text = 2 * pi * r * h Text5、Text = pi * r 2 * h End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页,共 21 页 - - - - - - - - - - VB上机练习题6、 设计界面如上图所示。单击“出题”按钮 , 产生任意两个 【1,100 】 之间的随机整数于Text1 、 Text2中, 单击“计算”按钮, 求两个数的与。运算结果为只读。P
9、rivate Sub Command1_Click() Text1、Text = Int(100 * Rnd + 1) Text2、Text = Int(100 * Rnd + 1) End Sub Private Sub Command2_Click() a = Val(Text1、Text) b = Val(Text1、Text) Text3、Text = a + b End Sub7.设计一个数字钟表程序,界面如图所示。运行时单击窗体,显示当前的年月日星期及时间。Private Sub Form_Click() Label2、Caption = Year(Now) Label4、Capt
10、ion = Month(Now) Label6、Caption = Day(Now) Label9、Caption = Weekday(Now) Label11、Caption = Time End Sub 8.设计一个数学函数程序,界面如图所示。程序运行时,在文本框中输入任意数值,单击相应按钮标签中显示结果。文本框始终处于选中状态。Private Sub Command1_Click() Label3、Caption = Abs(Val(Text1) Text1、SetFocus Text1、SelStart = 0 Text1、SelLength = Len(Text1、Text) End
11、 Sub Private Sub Command2_Click() Label3、Caption = Sqr(Val(Text1) Text1、SetFocus Text1、SelStart = 0 Text1、SelLength = Len(Text1、Text) End Sub Private Sub Command3_Click() Label3、Caption = Fix(Val(Text1) Text1、SetFocus Text1、SelStart = 0 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - -
12、 - -第 3 页,共 21 页 - - - - - - - - - - VB上机练习题Text1、SelLength = Len(Text1、Text) End Sub Private Sub Command4_Click() Label3、Caption = Int(Val(Text1) Text1、SetFocus Text1、SelStart = 0 Text1、SelLength = Len(Text1、Text) End Sub Private Sub Command5_Click() Label3、Caption = Sgn(Val(Text1) Text1、SetFocus T
13、ext1、SelStart = 0 Text1、SelLength = Len(Text1、Text) End Sub9.设计一工程 ,在文本框中输入一整数,单击“判断” 按钮 ,判断能否同时被3、5、7 整除 ,若能用 MsgBox函数显示“能同时被3、5、7 整除” ,否则显示“不能整除” 。Private Sub Command1_Click() a = Val(Text1) If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then MsgBox 能同时被 3、5、7 整除 Else MsgBox 不能整除 End If End Sub 10
14、.设计一个计算购书价钱的程序,界面如下图所示。 为了提高运行速度,设置 Tab 键序 ,使得输入完单价后,焦点定位到输入数量文本框中。单击“计算总价”或用访问键,算出总价。总价文本框要求为只读属性。完成相应功能。Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) Text3、Text = a * b End Sub Private Sub Command2_Click() End End Sub精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第
15、 4 页,共 21 页 - - - - - - - - - - VB上机练习题11.设计一工程 ,界面如上图所示。程序运行,单击“计算” ,求出对应角度的三角函数的绝对值于文本框Text2 中,同时要求选中文本框Text1 内容 ,以便继续输入。Private Sub Command1_Click() a = Val(Text1) b = a * 3、14 / 180 c = Abs(Sin(b) d = Abs(Cos(b) Text2、Text = Text2、Text & a & Space(10) & Format(c, 0、000) _ & Space(10) & Format(d,
16、 0、000) & vbCrLf Text1、SetFocus Text1、SelStart = 0 Text1、SelLength = Len(Text1、Text) End Sub 12.设计一个程序 ,用户界面如下图所示。程序运行后,单击“计算” ,求出应付款额;单击“清除” , 清除所有文本框内容。Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) Text4、Text = a * b * c End Sub Private Sub Command2_Click() Text1、Text =
17、 Text2、Text = Text3、Text = Text4、Text = End Sub13.输入一个学生的学号与考试成绩,然后按如图格式在图片框中输出学号、考试成绩及评语,评语:90100 优秀 ;8089 良好 ;7079 中等 ;6069 及格 ;059 不及格。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页,共 21 页 - - - - - - - - - - VB上机练习题Private Sub Command1_Click() a = Val(Text2) Select Case
18、 a Case 90 To 100 h = 优秀 Case 80 To 89 h = 良好 Case 70 To 79 h = 中等 Case 60 To 69 h = 及格 Case 0 To 59 h = 不及格 End Select Picture1、Print Picture1、Print 学号: & Text1、Text Picture1、Print Picture1、Print 分数: & a & Space(3) & h End Sub14.设计一个窗体Forml,界面如上图所示。编写适当的事件过程,程序运行后在第一个文本框中输入圆的半径 ,单击“计算”按钮,分别在第二个与第三个
19、文本框中显示圆的面积与周长。Private Sub Command1_Click() a = Val(Text1) Text2、Text = a 2 * 3 、14 Text3、Text = 2 * a * 3 、14 End Sub15.设计一个程序 ,用户界面如下图所示。程序运行后,单击 Command1 按钮 ,求出最大、最小数。Private Sub Command1_Click() a = Val(Text1):b = Val(Text2):c = Val(Text3) If a b Then t = a: a = b: b = t If a c Then t = a: a = c:
20、 c = t If b c Then t = b: b = c: c = t Text4、Text = a Text5、Text = c End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页,共 21 页 - - - - - - - - - - VB上机练习题16.界面如下图所示。编写适当的事件过程,程序运行后在三个文本框中分别输入三角形的边长值,单击“判断并计算”按钮,判断它们就是否能组成三角形,若能组成三角形在Text4 中显示三角形的面积,否则在 Text4 中显示“ FALSE
21、” 。Private Sub Command1_Click() a = Val(Text1):b = Val(Text2):c = Val(Text3) If a + b c Or a + c b Or b + c c Or Abs(a - c) b Or Abs(b - c) a Then Text4、Text = FALSE Else h = (a + b + c) / 2 s = Sqr(h * (h - a) * (h - b) * (h - c) Text4、Text = Format(s, 0、00) End If End Sub 17.设计一个程序运行界面如下图所示,将输入的三个
22、不同数,按从小到大的顺序排列。Private Sub Command1_Click() a = Val(Text1):b = Val(Text2):c = Val(Text3) If a b Then t = a: a = b: b = t If a c Then t = a: a = c: c = t If b 100000 End Sub Private Sub Command2_Click() s = 0 For i = 1 To 20 n = 1 For k = 1 To i n = n * k Next k s = s + n Next i Label2、Caption = s En
23、d Sub19.在窗体上画两个文本框输入a 与 n 的值 (a 与 n 均为一位数字 ),单击命令按钮输出Sn=a+aa+aaa+aaaa+aaa(最后一项 n 个 a,例如 3+33+333+3333)的值于标签中。Private Sub Command1_Click() a = Text1、text n = Val(Text2) Sn = 0 For i = 1 To n b = String(i, a) Sn = Sn + Val(b) Next i Label1、Caption = Sn End Sub20.单击命令按钮将 3 到 200之间的所有奇数显示在列表框中。Private S
24、ub Command1_Click() For i = 3 To 200 Step 2 List1、AddItem i Next i End Sub21.在窗体上画一文本框用于输入n 值,画两个命令按钮分别求下述表达式的值S1=S2=1357 (2n-1)并将 S1、S2的结果输出到图片框。Private Sub Command1_Click() n = Val(Text1) s = 0 For i = 1 To n s = s + (-1) (i + 1) / (2 * i - 1) Next i S2 = 1 For i = 1 To n S2 = S2 * (2 * n - 1) Nex
25、t i Picture1、Print 4 * s Picture1、Print S2 201!20!3! 2! 1!nn)121)1(51311(41nn精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页,共 21 页 - - - - - - - - - - VB上机练习题End Sub22.在文本框 T1 中打印 100999 之间的所有水仙花数。(该数为各位数字的立方与。例如:153=1 3+5 3+3 3 ) Private Sub Command1_Click() For i = 100 To
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2022 VB 上机 练习题
限制150内