VB练习题(上机)含答案

第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。

程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为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)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1))Elsech1 = ch1 + UCase(Mid(ch, i, 1))End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。

程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。

Private Sub MyCmd1_Click()Dim a%(29), i%, max%RandomizeFor i = 0 To 29a(i) = Int(Rnd * 1001)Next imax = a(0)For i = 1 To 29If a(i) > max Then max = a(i)Next iPrint maxEnd Sub4 请设计如下图所示窗体界面。

程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。

请编写适当的事件过程，完成上述功能。

Private Sub Command1_Click()If Option1.Value = True ThenText1.FontName = "宋体"ElseText1.FontName = "隶书"End IfIf Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfIf Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = 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 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的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。

请编写程序完成上述功能。

Dim n%Private Sub Form_Load()End SubPrivate Sub Option1_Click()Dim i%n = Val(Text1)m = 1For i = 1 To nm = m * iNext iText2 = mEnd SubPrivate Sub Option2_Click()Dim i%m = 1For i = 1 To n + 2m = m * iNext iText2 = mEnd Sub7 在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。

程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击"统计"命令按钮，统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签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 在窗体上添加一个文本框和一个命令按钮。

程序运行后，单击命令按钮，即可计算出0～200范围内能被3或7整除的所有整数的和，并显示在文本框中。

程序运行界面如下图所示。

Private Sub Command1_Click()Dim i%, sum%For i = 0 To 200If i Mod 3 = 0 Or i Mod 7 = 0 Then sum = sum + iNext iText1 = sumEnd SubPrivate Sub Text1_Change()End Sub9 请设计如下图所示界面(文本框名称为：Txt1，按钮名称为：Cmd1)。

程序运行时在文本框中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示在窗体上。

所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa”是回文，“aBCcBa”不是回文。

Private Sub Cmd1_Click()Dim ch As StringFor i = Len(Txt1) To 1 Step -1ch = ch + Mid(Txt1, i, 1)Next iIf Txt1 = ch ThenPrint Txt1 + " 是回文"ElsePrint Txt1 + " 不是回文"End If End SubPrivate Sub Form_Load()End Sub10 编程实现求!n 1......3121!11++++=！！Sum (n 为小于等于20的整数)。

程序运行界面如下图所示。

程序运行时，在文本框中输入n 的值，点击“计算”命令按钮，将计算结果显示在标签上。

Private Sub Command1_Click() Dim i%, m As Long, sum As Double n = Val(Text1) m = 1For i = 1 To n m = m * isum = sum + 1 / m Next iLabel2 = "sum=" & sum End SubPrivate Sub Form_Load()End Sub第二部分1 已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。

要求：程序运行后，在两个文本框中分别输入M和N的值，单击“计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。

程序运行界面如下图。

提示：N≥2×M的偶数。

Private Sub Command1_Click()m = Val(Text1)n = Val(Text2)If n Mod 2 <> 0 ThenMsgBox ("脚数必须为偶数")Text2 = ""Text2.SetFocusElsey = n / 2 - mIf y < 0 ThenMsgBox ("脚数必须>=只数的2倍，请重新输入")Text2 = ""Text2.SetFocusElsex = m - yLabel3 = xLabel4 = yEnd IfEnd IfEnd SubPrivate Sub Form_Load()End Sub2 若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为“水仙花数”。

例如153是水仙花数，因为153 = 1*1*1 + 5*5*5 + 3*3*3。

编程求出100～999之间所有的“水仙花数”。

要求：程序运行后，单击“查找”按钮，在窗体上显示找到的“水仙花数”。

程序运行界面如下图。

Private Sub Command1_Click()Print "水仙花数：";For i = 100 To 999X1 = i Mod 10 '分离出个位数X2 = (i Mod 100) \ 10 '分离出十位数x3 = i \ 100 '分离出百位数If i = X1 ^ 3 + X2 ^ 3 + x3 ^ 3 Then Print i;Next iEnd SubPrivate Sub Form_Load()End Sub3 编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0～100的整数)，并在左边图片框中输出 (一行5个成绩)，并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。