VB练习题(上机).doc

《VB练习题(上机).doc》由会员分享，可在线阅读，更多相关《VB练习题(上机).doc（24页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为输出平均值)。程序运行后，单击命令按钮完成以下工作：随机产生20个0到1000的整数，将其放入一个一维数组中求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为

2、C1、标题为转换的命令按钮，如下图所示。在程序运行时，单击转换按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch) If Asc(Mid(ch, i, 1) = 65 And Asc(Mid(ch, i, 1) max Then max = a(i)Next iPrint maxEnd Sub4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文

3、本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。 Private Sub Command1_Click()If Option1.Value = True Then Text1.FontName = 宋体Else Text1.FontName = 隶书End IfIf Check1.Value = 1 Then Text1.FontUnderline = TrueElse Text1.FontUnderline = FalseEnd IfIf Check2.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontItalic =

4、 FalseEnd IfEnd Sub5 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为对齐方式、字体，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为左对齐、居中、右对齐，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为宋体、黑体，名称分别为Opt4、Opt5。 要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。Private Sub Opt1_Click()If Opt1 Then Text1.Alignment = 0End

5、 SubPrivate Sub Opt2_Click()If Opt2 Then Text1.Alignment = 2End SubPrivate Sub Opt3_Click()If Opt3 Then Text1.Alignment = 1End SubPrivate Sub Opt4_Click()If Opt4 Then Text1.FontName = 宋体End SubPrivate Sub Opt5_Click()If Opt5 Then Text1.FontName = 黑体End Sub6 请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然

6、后选择N的阶乘或(N+2)的阶乘单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。 Dim n%Private Sub Form_Load()End SubPrivate Sub Option1_Click()Dim i%n = Val(Text1)m = 1For i = 1 To n m = m * iNext iText2 = mEnd SubPrivate Sub Option2_Click()Dim i%m = 1For i = 1 To n + 2 m = m * iNext iText2 = mEnd Sub7 在窗体上添加两个文本框和三个标签，设置它们的

7、属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击统计命令按钮，统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。 Private Sub Command1_Click()Dim i%, n%For i = 1 To Len(Text1) If Mid(Text1, i, 1) = Text2 Then n = n + 1Next iLabel3 = nEnd SubPrivate Sub Label3_Click()End Sub8 在窗体上添加一个文本框和一个命令按钮。程序运行后，

8、单击命令按钮，即可计算出0200范围内能被3或7整除的所有整数的和，并显示在文本框中。程序运行界面如下图所示。Private Sub Command1_Click()Dim i%, sum%For i = 0 To 200 If i Mod 3 = 0 Or i Mod 7 = 0 Then sum = sum + iNext iText1 = sumEnd SubPrivate Sub Text1_Change()End Sub9 请设计如下图所示界面(文本框名称为：Txt1，按钮名称为：Cmd1)。程序运行时在文本框中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示

9、在窗体上。所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa”是回文，“aBCcBa”不是回文。Private Sub Cmd1_Click()Dim ch As StringFor i = Len(Txt1) To 1 Step -1 ch = ch + Mid(Txt1, i, 1)Next iIf Txt1 = ch Then Print Txt1 + 是回文Else Print Txt1 + 不是回文End IfEnd SubPrivate Sub Form_Load()End Sub10 编程实现求(n为小于等于20的整数)。程序运行界面如下图所示。程序运行时，在文本框中输入n

10、的值，点击“计算”命令按钮，将计算结果显示在标签上。 Private Sub Command1_Click()Dim i%, m As Long, sum As Doublen = Val(Text1)m = 1For i = 1 To nm = m * isum = sum + 1 / mNext iLabel2 = sum= & sumEnd SubPrivate Sub Form_Load()End Sub第二部分1 已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。要求：程序运行后，在两个文本框中分别输入M和N的值，单击“计算”命令按钮，在两个标签框中

11、分别输出鸡和兔的数量。程序运行界面如下图。提示：N2M的偶数。Private Sub Command1_Click()m = Val(Text1)n = Val(Text2)If n Mod 2 0 Then MsgBox (脚数必须为偶数) Text2 = Text2.SetFocusElse y = n / 2 - m If y =只数的2倍，请重新输入) Text2 = Text2.SetFocus Else x = m - y Label3 = x Label4 = y End IfEnd IfEnd SubPrivate Sub Form_Load()End Sub2 若一个3位正整

12、数中各位数字的立方和等于该数字本身，则该数称之为“水仙花数”。例如153是水仙花数，因为 153 = 1*1*1 + 5*5*5 + 3*3*3。编程求出100999之间所有的“水仙花数”。要求：程序运行后，单击“查找”按钮，在窗体上显示找到的“水仙花数”。 程序运行界面如下图。Private Sub Command1_Click()Print 水仙花数：;For i = 100 To 999 X1 = i Mod 10 分离出个位数 X2 = (i Mod 100) 10 分离出十位数 x3 = i 100 分离出百位数 If i = X1 3 + X2 3 + x3 3 Then Prin

13、t i;Next iEnd SubPrivate Sub Form_Load()End Sub3 编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0100的整数)，并在左边图片框中输出 (一行5个成绩)，并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。Private Sub Command1_Click()Dim a(1 To 20) As Integer, i%, n%Picture1.ClsPicture2.ClsFor i = 1 To 20 a(i) = Int(Rnd * 101) Picture1.Print a(i); If i Mod 5 =

14、0 Then Picture1.Print If a(i) = 60 Then n = n + 1 Sum = Sum + a(i)Next iPicture2.Print 平均分：; Sum / 20Picture2.Print ; 及格人数：; nEnd SubPrivate Sub Picture2_Click()End Sub4 编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。Private Sub Form_Click()For i = 1 To 5 Print Tab(10 - i); String(2 * i - 1, *)Next iFor i = 1 To 4 Pr

15、int Tab(5 + i); String(9 - 2 * i, *)Next iEnd Sub5 编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。其功能是：程序的运行时，单击“开始计数”按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击“停止计数”按钮，则计数停止。Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()End SubPrivate Sub Tim

16、er1_Timer()Text1 = Val(Text1) + 1End Sub在属性窗口设置定时器的interval属性值为10006 以下程序运行界面如下图所示。其功能如下： 1) 单击读数据按钮(Command1)，可将随机产生100个三位正整数存到数组a中； 2) 单击计算按钮(Command2)，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。 题目提供的程序代码不完整，请设计下图界面并录入代码，将程序中的 ? 改为正确的内容。注意：不能修改程序的其他部分。24 ( _ 为为 *属 置 = ( . .( 图如界序

17、据框框文三钮输击单相中列在钮交提然，*示中(关入本的在运程值最中数显窗钮命击值素数作一各本个的在程 ( & + = & 正 + = = ( 图下界程数奇和据输或算算定照则算果和算选显控标左，按计和和偶，本数正于一，序现 ( += + ) , ( ( = ( 图下界序)为的,认的 母那面改个的把是的中本方示密字中方，按密单现 ( _ 价 & .0 . *= 0 0 + 0 )入( ( )值 ( ( ( 结计 形图后计题钮按，的输 用。数段程 ( 偶输 ( = ) 奇出 )( 0 ( ( _ 值 上签标后令计“击值 输 框文要值段程部 = ( ( ( ( . ( 图下行序色设背的则菜色“果绿设色框

18、将菜”击果红为景框将菜”红如白置背本将菜色击如，程色蓝绿“色”为别菜”景“别单一立建，下容本个上窗实 ( ( . .0 = . = . ( . * . = ( 图如面序序则”程按，横图需时大，小图钮“一， 像按放次，性 的到片图口属，像有左的：程 ( :大 ; = ( , ( 示图面运。公最它显窗，”约最击整一别中个的：现 ( _ ( 00 ) ( ) 0 % ) ( 值最素数出窗在命后值素各作整各本个上在现 ( _ +爱+ + +我 。 + 、 . = 、 . = . . = = . = ( 况合的用，句中文，”击示下计 ( ) (=(: ) , ($ ( , ( ) (= + )( + =

19、 ？, ( = ？ = , ( _ 整整”“，下录整，如已分程 面窗完请 图下行程 写小中 ，按击”部“，字全显 钮击，部中选的反示中 ，钮转单换小选符入中 框文：程。部、写“”写大题 、 名钮个钮令转一框两加 窗部 ( _ ;号) 是最 = (= ) , ( ) =)( ( 0 % 图如行程号位此数最的中0出示的体钮找查，正的 个示显窗”“击行程功程，写 ( 数是& = :是 = = - ( 图如行序信的一数或素是该输标钮断击数个输框后序：序序 ( = = ) , ( 0= ( ) , = ,%( _ 图图行运示签的在分计数符字以小字中字入统钮命题单,一入本后序：能，写 ( _ 0 )( ：

20、排后 ) ( ( ( = 排排 0 )( 0 = ：列前 ( 图如界程体出再的排序小个 生同个行每窗输 机，”“单运：。程 ( 表加添 置口属 += 数有 数有 数有所 0+) ( . / )+ += 0 = , %, ( 0 0 = 0 ( ) ( 数所 = 数数 数有 . ) / ( 0+ ( =：.+/( ( ) = ) 0 , ,& ( ? ) 0 ( ) 码序供分部序改不。容为?中将代并图下整码程。 框在后五果计并平计中数目的中 框合则， 算计；数整位0生随可 数：如能示下界程0 性 时设性 = ( ( . ( = . ( 止止则钮计击 数中，秒每数就”计开单的：能其令两计，文有体现

21、 *, ) * -0( ( _ 案的所示体击行程实写 ( _ 人格 / 分平 = 0= ( ) 0 . , 0 ( ( 图下面程人格分出片右，绩行(出框在)数 (的个生机钮开单行程要写 (_ + 位出分 =位十离00 ( 位个分 0 数水 ( 图下行程”仙水示体在”“，运程要花“的 求 *+ + 因花 ”花为数，本该等立位整 一 ( _ = = . = 新，数脚( ( 0 = 0* ( %, ( 上窗在，大组组一放，00个0作下成令单后序)值出标 名命一体 = ) + = ) , ( = ), ( , ( = , ( 变符其小转写把大母写 把钮换击，序在所，令标 名一文 称一上窗 为 / =

22、(+ 0 ( ) 0 )% ( 示示如体显，平有组维一放数的0到生作工以令击后程均输标 名钮个添部 部名 后工生0维平显示 ( 0 一称文令序击把母写转变 ( = ( , , = = 体一 标序令作0放组， (, 0 示时个一按本置事能 _ 宋 书 上 框对体 框单为， 添题宋为 五 使行可现如 ( ( _ = ( 体 =设面程框正后+钮计右请。 _ * 添和属。个框个然击统写母文果 ( ( = _ 文个令可内整数运示 ( 0 = _ 如文：)程击断字将谓符，是文文 ( 是 ( 于程程行“，签 = 部里兔只多求个入令签兔数 数 脚数 = 整立本花 + “花“在水” (水0 位=出 _ 写开钮(

23、)框绩片分面图 0 , . 0 ) = 分/ 格 ( 行示所 - * * 现文两令的计每，击计 ( ( 设性0下：数 生整； 合的数平五后。整图代容改分码 &, /： / 有 = ( 0 0 % =0 = ) / 0 所数 有 + 添 (。运“ 每个个小再程 ( 0 0 ( 后： ) _ ，后一,钮入字字分的运图 ,= = , (序后输断标素数信图 ( 程击窗个正找的0最数程 ) ) ( = 号; _( 两一令 题大“程框中小转 示选部 全部按中 行 窗 已录下整 ( , ？ ？ = ( + = ( ( = = ( 框在列。表中“的框删边中时图 . . . ( 的 尔 斯 单输随00的中的图

24、0 0 ) ( 个文命为“要单”对入中构击”入，数量串体。 个 ( 数 ： ：则示窗的示 ( , )0 := ) (计示，中合 = = . . 、 + _(上本作后窗素值 ) ) 0 ( ：别击”，公面示 ( = : (：有属片 性按，一图时需程”面图 *. .=. . ( 本容立单景”绿色如将背红将景果将色绿则设序 . ( ( = 段要 “标 ( 0 0 (令开钮机 行在行的的 (0 * 到整( = 输 ( 。 ，题后 ( + a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next jNext iPrint 排序后数

25、据排列：For i = 1 To 20 Print a(i); If i Mod 10 = 0 Then PrintNext iEnd SubPrivate Sub Form_Load()End Sub8 编写程序，程序的功能是：程序运行后，在文本框中输入一串字符, 单击标题为统计的命令按钮，分别统计输入字符串中大写字母、小写字母以及其他字符的个数，并将统计结果分别在相应的标签框中显示。程序运行界面如下图。Private Sub Command1_Click()Dim i%, m%, n%, z%For i = 1 To Len(Text1) If Asc(Mid(Text1, i, 1) = 65 And Asc(Mid(Text1, i, 1) = 97 And Asc(Mid(Text1, i, 1) = 122 Then m = m