大学计算机VB程序设计考试题目.docx

大学计算机VB程序设计考试题目.docx

《大学计算机VB程序设计考试题目.docx》由会员分享，可在线阅读，更多相关《大学计算机VB程序设计考试题目.docx（46页珍藏版）》请在冰豆网上搜索。

大学计算机VB程序设计考试题目

实验三

第1题四则运算题

设计如下窗体，为五个命令按钮编写5段代码完成四则运算及退出程序，其中在计算除法时，如果第二个数是零，在消息框中显示信息“除数为零”。

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima,bAsSingle

a=TextBox1.Text

b=TextBox2.Text

TextBox3.Text=a+b

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

Dima,bAsSingle

a=TextBox1.Text

b=TextBox2.Text

TextBox3.Text=a-b

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

Dima,bAsSingle

a=TextBox1.Text

b=TextBox2.Text

TextBox3.Text=a*b

EndSub

PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click

Dima,bAsSingle

a=TextBox1.Text

b=TextBox2.Text

Ifb=0Then

MessageBox.Show（"除数为零"）

Else

TextBox3.Text=a/b

EndIf

EndSub

PrivateSubButton5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton5.Click

End

EndSub

EndClass

第2题一元二次方程求解

输入系数后，单击“求解”按钮后，根据判别式的3种不同情况，分别显示如下的不同结果。

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima,b,c,deltaAsDouble

a=TextBox1.Text

b=TextBox2.Text

c=TextBox3.Text

delta=b*b-4*a*c

Ifdelta>0Then

Label5.Visible=True

Label6.Visible=True

Label4.Text="方程有两个不相等实根"

Label5.Text="X1="&（（-b+Math.Sqrt（delta））/2/a）

Label6.Text="X2="&（（-b-Math.Sqrt（delta））/2/a）

ElseIfdelta=0Then

Label4.Text="方程有两个相等实根"

Label5.Visible=True

Label5.Text="X1=X2="&（-b/2/a）

Label6.Visible=False

Else

Label4.Text="方程没有实根"

Label5.Visible=False

Label6.Visible=False

EndIf

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

End

EndSub

EndClass

第3题文本框中前景色和背景色的不同组合

目的：

单选按钮的使用

（1）设计窗体

如下所示窗体中包含两组单选按钮、两个框架和一个命令按钮。

（2）程序功能：

分别单击不同的前景色和背景色按钮，在文本框中显示颜色的改变。

（3）设置控件的主要属性

1）窗体的文本属性为“不同前景色背景色的组合”

2）初始前景色为红色、背景色为黄色

3）其它属性根据图中显示来设置

（4）事件代码

PublicClassForm1

PrivateSubRadioButton1_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton1.CheckedChanged

TextBox1.ForeColor=Color.Red

EndSub

PrivateSubRadioButton2_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton2.CheckedChanged

TextBox1.ForeColor=Color.Green

EndSub

PrivateSubRadioButton3_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton3.CheckedChanged

TextBox1.ForeColor=Color.Black

EndSub

PrivateSubRadioButton4_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton4.CheckedChanged

TextBox1.BackColor=Color.White

EndSub

PrivateSubRadioButton5_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton5.CheckedChanged

TextBox1.BackColor=Color.Yellow

EndSub

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

EndSub

EndClass

第4题三位整数的反序显示

在窗体中添加二个文本框、二个标签和一个命令按钮，在一个文本框中输入一个三位的整数，单击命令按钮后，在另一个框中按相反顺序显示该数，例如，输入123，则在另一个文本框中显示321。

提示：

本题先将每位上的数字分解出来，这要用到整除和计算余数的运算符，例如123整除100后的结果1就是百位，而123除以10的余数就是个位，至于十位，大家可以自己确定。

分解后的三位数再倒序组合成新的三位整数。

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima,b,c,d,yAsSingle

a=TextBox1.Text

b=a\100

c=（a-100*b）\10

d=a-100*b-10*c

TextBox2.Text=d&c&b

EndSub

EndClass

试验五

第1题累加

编写程序，计算1~100之间的所有偶数之和，程序窗口界面及控件自行设计。

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dimi,sumAsLong

Fori=2To100Step2

sum+=i

Next

TextBox1.Text=sum

EndSub

EndClass

第2题使用循环求解水仙花数的问题

要求：

（1）参考教材上例4-3关于水仙花数的定义。

（2）程序窗口界面及控件与例4-3的结果即图4-3一样。

（3）单击“开始”按钮后，在文本框中显示求出的结果。

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

DimM,k1,k2,k3AsInteger

TextBox1.Clear（）

ForM=100To999

k1=M\100

k2=（M\10）Mod10

k3=MMod10

IfM=k1^3+k2^3+k3^3Then

TextBox1.Text+=M.ToString（）+"="+k1.ToString（）+"^3+"+k2.ToString（）+"^3+"+k3.ToString（）+"^3"+vbCrLf

EndIf

Next

EndSub

EndClass

第3题统计整数的因子

编写程序，向一个文本框输入一个整数，单击“开始”按钮后，找出该数的所有因子，并统计因子的个数和总和，结果在另一个文本框中显示，共有三行，其中第一行该数的所有因子，第二行显示该数的因子个数，最后一行显示该数所有因子之和，窗体界面如下：

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima,b,c,dAsLong

c=0

a=TextBox1.Text

b=1

Whileb<=a

IfaModb=0Then

c+=1

d+=b

TextBox2.Text="该整数的因子是：

"&+=CStr（b）+","+vbCrLf+"因子个数为：

"+c.ToString（）+vbCrLf+"因子之和为：

"+d.ToString（）

EndIf

b=b+1

EndWhile

EndSub

EndClass

第4题判断素数

编写程序，判断某个整数是否是素数，在一个文本框中输入一个整数，单击命令按钮后，在另一个文本框中显示该数是否是素数，程序代码可以参考例4-10的代码，在此基础上改写。

以下是输入不同整数后的两种不同的结果，窗体结构也参照下图。

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dimi,jAsInteger

DimflagAsBoolean=True

i=TextBox1.Text

j=2

Whilej<=i-1

IfiModj=0Then

flag=False

ExitWhile

EndIf

j=j+1

EndWhile

IfflagThen

TextBox2.Text="是素数"

Else

TextBox2.Text="不是素数"

EndIf

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

End

EndSub

EndClass

试验六

第1题元素交换

编写程序，通过使用inputbox将10个整数放入一个一维数组中，然后将前5个元素和5个元素交换，方法是将第一个元素与第10个元素，第2个元素与第9个互换，依次类推，要求在文本框中显示交换以前和交换以后的结果。

提示:

使用inputbox将10个整数放入一个一维数组中

Fori=1To10

a（i）=InputBox（"请输入整数"）

TextBox1.Text+=a（i）.ToString+""

Next

k=0

TextBox1.Text+=vbCrLf+"交换后：

　"

Fori=1To10

Ifi>5Then

k=a（i）

a（i）=a（11-i）

a（11-i）=k

TextBox1.Text+=a（11-i）.ToString+""

Else

k=a（11-i）

a（11-i）=a（i）

a（i）=k

TextBox1.Text+=a（i）.ToString+""

EndIf

Next

完整程序;

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima（10）,kAsInteger

Fori=1To10

a（i）=InputBox（"请输入整数"）

TextBox1.Text+=a（i）.ToString+""

Next

k=0

TextBox1.Text+=vbCrLf+"交换后：

　"

Fori=1To10

Ifi>5Then

k=a（i）

a（i）=a（11-i）

a（11-i）=k

TextBox1.Text+=a（11-i）.ToString+""

Else

k=a（11-i）

a（11-i）=a（i）

a（i）=k

TextBox1.Text+=a（i）.ToString+""

EndIf

Next

TextBox1.Text="交换前：

"+TextBox1.Text

EndSub

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

EndSub

EndClass

第2题元素平均

编写程序，通过使用inputbox将10个整数放入一个一维数组中，然后计算这10个整数的平均值，在文本框中显示平均值和这10个数中低于平均值的数

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima（10）,sum,iAsInteger

DimavAsSingle

Fori=1To10

a（i）=InputBox（"请输入整数"）

sum+=a（i）

Next

av=sum/10

Fori=1To10

Ifa（i）

TextBox1.Text+=a（i）.ToString+""

EndIf

Next

TextBox1.Text="该组数的平均值为：

"+av.ToString+vbCrLf+"小于平均值的数有：

"+TextBox1.Text

EndSub

EndClass

第3题矩阵转置

编写程序，实现矩阵转置，即矩阵的行、列互换，将一个3行4列的矩阵转换为4行3列，要示在文本框中分别显示转换前后的两个矩阵。

提示:

str="交换前：

"+vbCrLf

Fori=0To3

Forj=0To2

str+=a（i,j）.ToString（）+""

b（j,i）=a（i,j）

Next

str+=vbCrLf

Next

str+="交换后:

"+vbCrLf

Fori=0To2

Forj=0To3

str+=b（i,j）.ToString+""

Next

str+=vbCrLf

Next

完整程序:

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima（,）AsInteger={{1,2,3,4},{4,5,6,7},{6,7,8,9}}

Dimi,j,b（3,2）AsInteger,strAsString

str="交换前：

"+vbCrLf

Fori=0To2

Forj=0To3

str+=a（i,j）.ToString（）+""

b（j,i）=a（i,j）

Next

str+=vbCrLf

Next

str+="交换后：

"+vbCrLf

Fori=0To3

Forj=0To2

str+=b（i,j）.ToString（）+""

Next

str+=vbCrLf

Next

TextBox1.Text=str

EndSub

EndClass

试验七:

第1题完全数

编写程序，找出2~2000之间的所有完全数。

完全数是指某个整数的每个因子之和正好等于该数本身，例如：

因为6=1+2+3，28=1+2+4+7+14，所以这两个数都是完全数。

要求：

（1）程序窗口界面及控件自行设计。

（2）单击“开始”按钮后，在文本框中显示求出的结果。

（3）请用进度条提示.

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima,b,c,d,iAsInteger

Fora=2To2000

c=0

Forb=1Toa-1

d=aModb

Ifd=0Then

c+=b

EndIf

Next

Ifa=cThen

TextBox1.Text+=a.ToString+""

EndIf

ProgressBar1.Value=a

Next

EndSub

EndClass

第2题杨辉三角形

打印以下的杨辉三角形（打印10行）。

1

11

121

1331

14641

15101051

┋

提示：

（1）使用一个二维数组a保存这些数据

（2）第0列、主对角线上元素都为1

（3）其它元素为其上一行元素与上一行左侧元素之和,

即:

a（I,j）=a（i-1,j）+a（i-1,j-1）

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima（10,10）AsInteger

Dimi,jAsInteger

a（1,1）=1

Fori=2To10

a（i,1）=1

Forj=2Toi

a（i,j）=a（i-1,j-1）+a（i-1,j）

Next

Next

Fori=1To10

Forj=1Toi

TextBox1.Text+=a（i,j）.ToString+""

Next

TextBox1.Text+=vbCrLf

Next

EndSub

EndClass

第3题求最小值

建立一个4行3列的二维数组，找出其中最小的元素所在的行和列，并在文本框中输出该值及其行、列位置。

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima（,）AsInteger={{45,21,13},{42,15,16},{37,18,29}