大学vb应用编程题答(程序设计教程）

1、 Vb简单应用题练习题 第一题： 打开指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名为lblClock的标签控件和一个名称为timeClock的计时器控件；请将标签控件lblClock的Caption属性设为空串，BorderStyle属性设为1，再设置timeClock的适当属性，并编写适当的事件过程，使得在运行时，每隔一秒种在标签中显示的数字从1开始自动加1。如图所示是程序开始运行时的界面。 请将程序中注释语句修改为正确代码，并删除注释符号；不能修改已有的程序内容，特别是不能改变程序中已有的变量名称。 注意：1.不能修改除注释语句以外的其他代码行和已经设

2、置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。 Option ExplicitPrivate nCount As LongPrivate Sub Form_Load() nCount = 1End SubPrivate Sub timeClock_Timer() lblClock = nCount nCount = nCount + 1End Sub 第二题： 打开指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名称为txtInput的文本框；两个标题分别为“对齐方式”、“字体”，名称分别

3、为fraAlign、fraFont的框架控件；在fraAlign框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为optLeft、optCenter、optRight；在fraFont框架中画两个单选按钮，标题分别为“宋体”、“黑体”，名称分别为optSt、optHt。 要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作效果，如图所示。 注意：1.不能修改其他代码行，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。 3.程序中不得使用变量，每个事件过程中

4、只能写一条语句。Option ExplicitPrivate Sub optCenter_Click() txtInput.Alignment = 2End SubPrivate Sub optRight_Click() txtInput.Alignment = 1End SubPrivate Sub optLeft_Click() txtInput.Alignment = 0End SubPrivate Sub optHt_Click() txtInput.FontName = "黑体"End SubPrivate Sub optSt_Click() txtInput.F

5、ontName = "宋体"End Sub 第三题： 打开指定文件夹下的工程文件vbsj3.vbp，本程序的功能是输入用户名和密码。要求程序运行时，在输入用户名的文本框txtUserName中输入的英文字符个数不超过10个且按回车键时，焦点自动定位到输入密码的文本框txtPassWord中；否则将文本框txtUserName的内容清空，焦点还是在文本框txtUserName中。同时，若选中“显示密码”复选框，在文本框txtPassWord中输入密码时，文本框txtShowPwd中显示的是密码字符本身；若没有选中“显示密码”复选框，则文本框txtShowPwd显示的是“#”，

6、如图所示。 在考生文件夹中给出的窗体文件vbsj3.frm中已经添加了全部的控件，但程序不完整。请去掉程序中的注释，将其中的?改为正确的内容。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub Form_Load() Form1.Show txtUserName.SetFocusEnd SubPrivate Sub txtPassWord_Change() If chkShowPwd.Value = 1 Then txt

7、ShowPwd.PasswordChar = "" Else txtShowPwd.PasswordChar = "#" End If txtShowPwd.Text = txtPassWord.TextEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Len(Trim(txtUserName.Text) > 0 Then txtPassWord.SetFocus Else MsgBox "用户名不能为空！"

8、, vbCritical, "警告" txtUserName.SetFocus End If End IfEnd Sub第四题： 打开指定文件夹下的工程文件vbsj3.vbp，已经添加全部控件，其中“+”、“-”、“×”、“÷”对应的单选按钮为一个控件数组。程序的功能是根据水平滚动条hsbNum1和hsbNum2的当前值作为运算数，当单击命令按钮cmdCalc时可分别进行加、减、乘、除运算，并将运算的结果显示在标签lblOpResult中，程序运行时的界面如图所示。 请在设计模式下分别设置水平滚动条hsbNum1和hsbNum2的Max、Min属性的值分

9、别100、1；设置“+”对应的单选按钮控件当前为选中状态。 该程序不完整，请去掉程序中的注释符，并把?改正为正确内容，使其能够正确运行。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub cmdCalc_Click() Dim i As Integer, Result As Integer Dim opt As String For i = 0 To 3 If optOperator(i).Value = True Th

10、en opt = optOperator(i).Caption End If Next Select Case opt Case "+" Result = hsbNum1 + hsbNum2 Case "-" Result = hsbNum1 - hsbNum2 Case "×" Result = hsbNum1 * hsbNum2 Case "÷" Result = hsbNum1 / hsbNum2 End Select lblOpResult.Caption = Str(hsbNum1.V

11、alue) & opt & Str(hsbNum2.Value) & "=" & Str(Result)End Sub第五题： 打开指定文件夹下的工程文件为vbsj3.vbp，相应的窗体文件文件为vbsj3.frm，包含了所有的控件和部分程序，程序的功能是：当选择“考试科目”、“考试形式”后，单击“确定”按钮，在文本框txtContents中显示选中的“考试科目”和“考试形式”的内容；若没有选择相应的项目，将以消息框进行提示。要求： (1) 利用属性窗口向列表框lstSubjects添加“二级VB”、“二级VFP”、“二级网页设计”、“二级C

12、”四个项目作为考试科目；同时将窗体只保留“关闭”按钮。程序运行时的界面如图所示。 (2) 将程序代码中注释符号去掉，其中的?修改为正确的程序代码，保证程序能正常运行。 注意： 1. 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2. 在结束运行之前，必须至少要进行一次选择操作（包括列表框和单选按钮），退出程序时通过单击窗体右上角的关闭按钮。 3.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub cmdOK_Click() If lstSubjects.ListIndex &g

13、t;= 0 Then If optBs.Value = True Then txtContents.Text = lstSubjects.List(lstSubjects.ListIndex) & optBs.Caption ElseIf optSj.Value = True Then txtContents.Text = lstSubjects.List(lstSubjects.ListIndex) & optSj.Caption Else MsgBox "请鼠标单击选择其中的一种考试形式!", vbOKOnly, "提示" End I

14、f Else MsgBox "请单击鼠标选择考试科目的其中一项!", vbOKOnly, "提示" End IfEnd Sub第六题： 打开指定文件夹下的工程文件为vbsj3.vbp，在窗体中已添加全部控件。程序的功能是当单击“添加”按钮时，将窗体上左侧列表框（名称为lstPending）同时选中的多个不连续的列表项移动到右侧列表框（名称为lstSelected）中；当单击“删除”按钮时，将右侧列表框lstSelected选中的一个列表项移动到左侧列表框lstPending中。程序运行时的界面如图所示。 要求： (1) 通过属性窗口，设置列表框控件lst

15、Pending可以同时选择不连续的多个列表项； (2) 窗体文件中的程序代码不完整，请将其中的注释符去掉，并将?修改为正确的代码，保证程序能够正常运行。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub cmdAdd_Click() Dim k As Integer k = 0 While (k < lstPending.ListCount) If lstPending.Selected(k) = True The

16、n lstSelected.AddItem lstPending.List(k) lstPending.RemoveItem k End If k = k + 1 WendEnd SubPrivate Sub cmdRemove_Click() lstPending.AddItem lstSelected.Text lstSelected.RemoveItem lstSelected.ListIndexEnd Sub第七题： 打开指定文件夹下的工程文件是vbsj3.vbp，窗体上已经添加部分控件和程序代码，程序运行时的界面如图所示。 要求： (1) 在设计模式下为窗体添加“通用对话框”控件，名

17、称为CommonDialog1； (2) 在“设置字体”按钮的“Click”事件中将代码补充完整，程序执行时能够对文本框控件（名称为txtSample）中的文本利用打开的“通用对话框”窗口将字体、字号、下划线、颜色分别设置为“楷体”、“四号”、“加下划线”、“红色”效果。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub cmdFont_Click() CommonDialog1.Flags = cdlCFBoth Or

18、 cdlCFEffects CommonDialog1.ShowFont txtSample.FontName = CommonDialog1.FontName txtSample.FontSize = CommonDialog1.FontSize txtSample.FontUnderline = CommonDialog1.FontUnderline txtSample.ForeColor = CommonDialog1.ColorEnd Sub第八题： 打开指定文件夹下的工程文件vbsj3.vbp，窗体上已添加全部控件。程序的功能是根据文本框（名称为txtInput）中输入的内容，当单击

19、“统计个数”命令按钮时，分别统计“数字”、“大写字母”、“小写字母”的个数，并将统计的结果分别显示在文本框控件数组（名称为txtNumber）中。 窗体文件中的程序代码并不完整，请将代码中的注释符去掉，并将其中的?修改为正确的代码，保证程序能够正常运行。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub cmdCounting_Click() Dim n As Integer, i As Integer, k As In

20、teger Dim a(3) As Integer, s As String s = RTrim(txtInput.Text) n = Len(s) For i = 1 To n k = Asc(Mid(s, i, 1) Select Case k Case 48 To 57 a(0) = a(0) + 1 Case 65 To 90 a(1) = a(1) + 1 Case 97 To 122 a(2) = a(2) + 1 End Select Next i For i = 0 To 2 txtNumber(i).Text = a(i) Next iEnd SubPrivate Sub F

21、orm_Load()End Sub第九题： 在指定文件夹下有大小完全相同的两个图片文件，名称分别为p1.jpg和p2.jpg；已经创建的窗体文件为vbsj3.frm，相应的工程文件为vbsj3.vbp。 打开指定文件夹下的该工程文件vbsj3.vbp，窗体的名称为Form1，并已添加两个图片框控件和一个命令按钮控件，两个图片框控件的名称分别为Pic1、Pic2，命令按钮控件的名称cmdChange，标题为“交换图片”。 要求： (1) 使用属性窗口，分别为两个图片框控件Pic1和Pic2加载考生文件夹下的图片文件p1.jpg和p2.jpg，并设置两个图片框控件自动与图片p1.jpg和p2.jp

22、g具有相同的大小，程序运行时的界面如图所示。 (2) 在命令按钮cmdChange的Click事件中编写代码，当单击该命令按钮时，将两个图片框控件Pic1、Pic2已经加载的图片交换显示（交换时，不能再重新加载图片文件）。 注意：1. 程序中不得使用任何变量，也不能使用第三个图片框或图像框控件，不能修改程序的其他部分和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub cmdChange_Click() Form1.Picture = Pic1.Picture Pic

23、1.Picture = Pic2.Picture Pic2.Picture = Form1.Picture Form1.Picture = LoadPicture("") '该语句也可以没有End Sub第十题： 打开指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上建立一个名称为txtDisplay的文本框，然后建立一个名称为mnuList的主菜单，其子菜单项有三个，名称分别为mnuOil、mnuFood、mnuEgg，它们的标题分别为“食用油”、“米面”和“鸡蛋”。程序运行后，界面如图所示。 如果选择“食品列表”的下拉菜单项“食用油”，则在文本

24、框txtDisplay中显示“保质期18个月”；如果选择“米面”，则在文本框中显示“保质期12个月”；如果选择“鸡蛋”，则在文本框中显示“保质期1个月”。 注意：1. 不能使用任何变量，直接显示要求的字符串；不能修改程序的其他部分和不要求操作的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub mnuEgg_Click() txtDisplay.Text = "保质期1个月"End SubPrivate Sub mnuFood_Click() txtDispl

25、ay.Text = "保质期12个月"End SubPrivate Sub mnuOil_Click() txtDisplay.Text = "保质期18个月"End Sub第十一题： 打开指定文件夹下的工程文件vbsj4.vbp，窗体的功能是在组合框cboDivisor选中一个数作为起始值，单击“计算”按钮cmdCalc时，先使用输入对话框输入一个不大于5000的整数，然后计算该整数所有大于起始值的因数之和，并将求和的结果显示在名称为txtResult的文本框中。程序运行时的界面如图所示。 (1) 使用属性窗口为组合框cboDivisor添加三个列表项

26、，分别为数字3、7、11； (2) 修改窗体文件的代码，将其中的注释符号去掉，并把?修改为相应的正确程序代码，保证程序能正常运行。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub cmdCalc_Click() Dim nDividend As Integer, nDivisor As Integer, i As Integer Dim Sum As Long Sum = 0 nDividend = Int(Val(I

27、nputBox("请输入一个小于5000的整数作为被除数!", "输入", 3000) nDivisor = Int(Val(Trim(cboDivisor.Text) For i = nDivisor + 1 To nDividend If nDividend Mod i = 0 Then Sum = Sum + i End If Next txtResult.Text = SumEnd Sub第十二题： 打开指定文件夹下已经创建好工程文件vnsj4.vbp。程序运行时，在窗体的Activate事件过程中生成圆的12个刻度点，另有长、短2条直线，名称分

28、别为linLong、linShort，起点的坐标分别为圆心的坐标x0、y0，如图所示，用以模拟时钟的指针移动。当单击“开始”按钮，则每隔0.5秒长指针顺时针转动一个刻度，短指针顺时针转动1/12个刻度（即长指针转动一周，短指针转动一个刻度）；当单击“停止”按钮，两个指针都停止转动。 在窗体文件中已经给出了全部控件，但程序不完整，请去掉程序中得注释符，把其中的?修改为正确的内容。 提示：程序中的常量x0、y0是圆心到窗体左上角的距离，可看作圆心的坐标；radius是圆的半径；pi是圆周率。变量nHourLen、nMinuteLen分别为长指针和短指针的长度。 注意：1.不能修改除注释语句以外的其

29、他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitConst x0 = 1200, y0 = 1200, radius = 1000Private a As Integer, b As Integer, nMinuteLen As Integer, nHourLen As IntegerPrivate Sub cmdStart_Click() Timer1.Enabled = TrueEnd SubPrivate Sub cmdStop_Click() Timer1.Enable

30、d = FalseEnd SubPrivate Sub Form_Activate() Dim k As Integer, a As Integer, b As Integer Dim x As Integer, y As Integer Timer1.Enabled = False For k = 0 To 359 Step 30 x = radius * Cos(k * 3.1415926 / 180) + x0 y = y0 - radius * Sin(k * 3.1415926 / 180) Form1.Circle (x, y), 20 Next k a = 90 b = 90 n

31、HourLen = linLong.Y1 - linLong.Y2 nMinuteLen = linShort.Y1 - linShort.Y2 linLong.X1 = x0 linLong.Y1 = y0 linShort.X1 = x0 linShort.Y1 = y0End SubPrivate Sub Timer1_Timer() a = a - 30 linLong.X2 = nHourLen * Cos(a * 3.11415926 / 180) + x0 linLong.Y2 = y0 - nHourLen * Sin(a * 3.1415926 / 180) b = (a -

32、 30) / 12 linShort.X2 = nMinuteLen * Cos(b * 3.1415926 / 180) + x0 linShort.Y2 = y0 - nMinuteLen * Sin(b * 3.1415926 / 180)End Sub第十三题： 在指定文件夹下已经创建窗体文件vbsj4.frm，相应的工程文件为vbsj4.vbp。 打开工程文件vbsj4.vbp，程序运行时，单击“开始”按钮，则图像从左向右每0.5秒移动一次移动，同时滚动条的滑块也随之移动，当图像完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动；若单击“停止”按钮，则图像停止移动，如图所示。

33、要求： (1) 利用属性窗口，从考生文件夹下为图像框控件添加相应的图片，图片文件的名称为EARTH.ICO。 (2) 在窗体文件的程序代码中将注释符去掉，并将其中的?修改为正确的程序代码，保证程序能够正常运行。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub cmdStart_Click() Timer1.Enabled = TrueEnd SubPrivate Sub cmdStop_Click() Timer1.E

34、nabled = FalseEnd SubPrivate Sub Form_Load() hsbMove.Min = 0 hsbMove.Max = Me.Width Timer1.Interval = 500 Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() imgShow.Left = imgShow.Left + 200 If imgShow.Left > Me.Width Then imgShow.Left = 0 End If hsbMove.Value = (hsbMove.Value + 200) Mod hsb

35、Move.MaxEnd Sub第十四题： 在指定文件下已经创建的窗体文件是vbsj4.frm，工程文件为vbsj4.vbp，并已在窗体中添加全部控件。 打开工程文件vbsj4.vbp，程序的功能是通过文本框控件txtInput输入城市的名称，并添加列表框控件lstCity中作为其中的列表项；当鼠标双击列表框中选定的列表项时，从列表框中移除选定的列表项。程序运行时的界面如图所示。 要求： (1) 窗体激活时，首先将焦点定位到文本框控件txtInput中； (2) 在文本框中按回车键时，如果文本框的内容不空，则作为列表框的一项添加到列表框中。 给出的程序代码并不完整，请将代码中的注释符去掉，并将其

36、中的?修改为正确的代码，保证程序能正常运行。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。 Option ExplicitPrivate Sub Form_Activate() txtInput.SetFocusEnd SubPrivate Sub lstCity_DblClick() Dim n As Integer, i As Integer n = lstCity.ListCount i = lstCity.ListIndex If n > 0 And l

37、stCity.Selected(i) = True Then lstCity.RemoveItem i End IfEnd SubPrivate Sub txtInput_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Len(Trim(txtInput.Text) > 0 Then lstCity.AddItem Trim(txtInput.Text) txtInput.Text = "" txtInput.SetFocus Else MsgBox "文本框的内容不能为空!", vbO

38、KOnly, "提示" End If End IfEnd Sub第十五题： 在指定文件夹下已经创建窗体文件vbsj4.frm和sIDE.frm（多文档窗体），相应的工程文件是vbsj4.vbp。 打开工程文件vbsj4.vbp，程序运行时，显示登录窗体，如图1所示；在输入用户名、口令分别为“admin”后，单击“确定”按钮，将显示多文档窗体sIDE.frm。如果输入的用户名和口令不正确或单击“取消”按钮，将结束程序的运行。 要求： (1) 利用属性窗口，在窗体文件vbsj4.frm中设置文本框txtPwd中显示的字符为“*”，在窗体文件sIDE.frm中为图片框控件Pict

39、ure1加载图片vbsj4.jpg。 (2) 程序不完整，请讲代码中的注释符去掉，并将其中的?修改为正确的代码，保证程序能够正常运行。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option ExplicitPrivate Sub cmdCancel_Click() EndEnd SubPrivate Sub cmdOK_Click() Dim cUserName As String, cPwd As String cUserName = Trim(txtUserN

40、ame.Text) cPwd = Trim(txtPwd.Text) If cUserName = "admin" And cPwd = "admin" Then Unload Me sIDE.Show Else End End IfEnd Sub第十六题： 在指定文件夹下已经创建窗体文件vbsj4.frm，并添加全部控件，对应的工程文件为vbsj4.vbp。 打开工程文件vbsj4.vbp，程序运行时的界面如图所示。当在名称为txtInput的文本框中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题含义进行转换

41、，结果放入名称为txtResult的文本框中。 给出的程序代码并不完整，请将程序中的注释符去掉，并将其中的?修改为正确的内容。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Private Sub cmdConvert_Click() Dim n As Integer, k As Integer Dim s1 As String, c1 As String n = Len(txtInput.Text) s1 = "" For k = 1 To n c1 = Mid(txtInput.Text, k, 1) If optUpDown.Value = True Then If c1 >= "a" And c1 <= "z" Then s1 = s1 + UCase(c1) ElseIf c1 >= "A"