VB练习题(上机)含答案(共30页).doc
《VB练习题(上机)含答案(共30页).doc》由会员分享,可在线阅读,更多相关《VB练习题(上机)含答案(共30页).doc(30页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
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的窗体上添加一个名称为Te
2、xt1的文本框和一个名称为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
4、.FontItalic = FalseEnd IfEnd Sub5 在名称为Form1的窗体上添加一个名称为Text1的文本框;添加两个标题分别为对齐方式、字体,名称分别为Fm1、Fm2的框架;在Fm1框架中添加三个单选按钮,标题分别为左对齐、居中、右对齐,名称分别为Opt1、Opt2、Opt3;在Fm2框架中添加两个单选按钮,标题分别为宋体、黑体,名称分别为Opt4、Opt5。 要求:编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的内容实现相应的操作(如图所示)。Private Sub Opt1_Click()If Opt1 Then Text1.Ali
5、gnment = 0End 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 请设计如下图所示窗体界面。运行程序时,先向左侧文本框中输入
6、一个不超过10的正整数,然后选择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的整数)。程序运行界面如下图所示。程
10、序运行时,在文本框中输入n的值,点击“计算”命令按钮,将计算结果显示在标签上。 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
12、 Sub2 若一个3位正整数中各位数字的立方和等于该数字本身,则该数称之为“水仙花数”。例如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 + x
13、3 3 Then Print 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);
14、If i Mod 5 = 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
15、i = 1 To 4 Print 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 SubPr
16、ivate Sub Timer1_Timer()Text1 = Val(Text1) + 1End Sub在属性窗口设置定时器的interval属性值为10006 以下程序运行界面如下图所示。其功能如下: 1) 单击读数据按钮(Command1),可将随机产生100个三位正整数存到数组a中; 2) 单击计算按钮(Command2),则根据从组合框Combo1中选中的项目,对数组a中的数据计算平均值,并将计算结果四舍五入取整后显示在文本框Text1中。 题目提供的程序代码不完整,请设计下图界面并录入代码,将程序中的 ? 改为正确的内容。注意:不能修改程序的其他部分。专心-专注-专业题目提供的程序
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 练习题 上机 答案 30
限制150内