大学计算机VB程序设计考试题目Word下载.docx
《大学计算机VB程序设计考试题目Word下载.docx》由会员分享，可在线阅读，更多相关《大学计算机VB程序设计考试题目Word下载.docx（40页珍藏版）》请在冰豆网上搜索。
EndClass
第2题一元二次方程求解
输入系数后，单击“求解”按钮后，根据判别式的3种不同情况，分别显示如下的不同结果。
Dima,b,c,deltaAsDouble
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
方程有两个相等实根"
X1=X2="
（-b/2/a）
Label6.Visible=False
方程没有实根"
Label5.Visible=False
第3题文本框中前景色和背景色的不同组合
目的：
单选按钮的使用
（1）设计窗体
如下所示窗体中包含两组单选按钮、两个框架和一个命令按钮。
（2）程序功能：
分别单击不同的前景色和背景色按钮，在文本框中显示颜色的改变。
（3）设置控件的主要属性
1）窗体的文本属性为“不同前景色背景色的组合”
2）初始前景色为红色、背景色为黄色
3）其它属性根据图中显示来设置
（4）事件代码
PrivateSubRadioButton1_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton1.CheckedChanged
TextBox1.ForeColor=Color.Red
PrivateSubRadioButton2_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton2.CheckedChanged
TextBox1.ForeColor=Color.Green
PrivateSubRadioButton3_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton3.CheckedChanged
TextBox1.ForeColor=Color.Black
PrivateSubRadioButton4_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton4.CheckedChanged
TextBox1.BackColor=Color.White
PrivateSubRadioButton5_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton5.CheckedChanged
TextBox1.BackColor=Color.Yellow
PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
第4题三位整数的反序显示
在窗体中添加二个文本框、二个标签和一个命令按钮，在一个文本框中输入一个三位的整数，单击命令按钮后，在另一个框中按相反顺序显示该数，例如，输入123，则在另一个文本框中显示321。
提示：
本题先将每位上的数字分解出来，这要用到整除和计算余数的运算符，例如123整除100后的结果1就是百位，而123除以10的余数就是个位，至于十位，大家可以自己确定。
分解后的三位数再倒序组合成新的三位整数。
Dima,b,c,d,yAsSingle
b=a\100
c=（a-100*b）\10
d=a-100*b-10*c
TextBox2.Text=d&
c&
b
试验五
第1题累加
编写程序，计算1~100之间的所有偶数之和，程序窗口界面及控件自行设计。
Dimi,sumAsLong
Fori=2To100Step2
sum+=i
Next
TextBox1.Text=sum
第2题使用循环求解水仙花数的问题
要求：
（1）参考教材上例4-3关于水仙花数的定义。
（2）程序窗口界面及控件与例4-3的结果即图4-3一样。
（3）单击“开始”按钮后，在文本框中显示求出的结果。
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（）+"
+k3.ToString（）+"
^3"
+vbCrLf
第3题统计整数的因子
编写程序，向一个文本框输入一个整数，单击“开始”按钮后，找出该数的所有因子，并统计因子的个数和总和，结果在另一个文本框中显示，共有三行，其中第一行该数的所有因子，第二行显示该数的因子个数，最后一行显示该数所有因子之和，窗体界面如下：
Dima,b,c,dAsLong
c=0
b=1
Whileb<
=a
IfaModb=0Then
c+=1
d+=b
TextBox2.Text="
该整数的因子是：
"
+=CStr（b）+"
"
+vbCrLf+"
因子个数为：
+c.ToString（）+vbCrLf+"
因子之和为：
+d.ToString（）
b=b+1
EndWhile
第4题判断素数
编写程序，判断某个整数是否是素数，在一个文本框中输入一个整数，单击命令按钮后，在另一个文本框中显示该数是否是素数，程序代码可以参考例4-10的代码，在此基础上改写。
以下是输入不同整数后的两种不同的结果，窗体结构也参照下图。
Dimi,jAsInteger
DimflagAsBoolean=True
i=TextBox1.Text
j=2
Whilej<
=i-1
IfiModj=0Then
flag=False
ExitWhile
j=j+1
IfflagThen
是素数"
不是素数"
试验六
第1题元素交换
编写程序，通过使用inputbox将10个整数放入一个一维数组中，然后将前5个元素和5个元素交换，方法是将第一个元素与第10个元素，第2个元素与第9个互换，依次类推，要求在文本框中显示交换以前和交换以后的结果。
提示:
使用inputbox将10个整数放入一个一维数组中
Fori=1To10
a（i）=InputBox（"
请输入整数"
TextBox1.Text+=a（i）.ToString+"
"
k=0
TextBox1.Text+=vbCrLf+"
交换后：
"
Ifi>
5Then
k=a（i）
a（i）=a（11-i）
a（11-i）=k
TextBox1.Text+=a（11-i）.ToString+"
k=a（11-i）
a（11-i）=a（i）
a（i）=k
完整程序;
PublicClassForm1
Dima（10）,kAsInteger
a（i）=InputBox（"
TextBox1.Text="
交换前：
+TextBox1.Text
第2题元素平均
编写程序，通过使用inputbox将10个整数放入一个一维数组中，然后计算这10个整数的平均值，在文本框中显示平均值和这10个数中低于平均值的数
Dima（10）,sum,iAsInteger
DimavAsSingle
sum+=a（i）
av=sum/10
Ifa（i）<
avThen
该组数的平均值为：
+av.ToString+vbCrLf+"
小于平均值的数有：
第3题矩阵转置
编写程序，实现矩阵转置，即矩阵的行、列互换，将一个3行4列的矩阵转换为4行3列，要示在文本框中分别显示转换前后的两个矩阵。
str="
Fori=0To3
Forj=0To2
str+=a（i,j）.ToString（）+"
b（j,i）=a（i,j）
str+=vbCrLf
str+="
交换后:
Fori=0To2
Forj=0To3
str+=b（i,j）.ToString+"
完整程序:
Dima（,）AsInteger={{1,2,3,4},{4,5,6,7},{6,7,8,9}}
Dimi,j,b（3,2）AsInteger,strAsString
str+=b（i,j）.ToString（）+"
TextBox1.Text=str
试验七:
第1题完全数
编写程序，找出2~2000之间的所有完全数。
完全数是指某个整数的每个因子之和正好等于该数本身，例如：
因为6=1+2+3，28=1+2+4+7+14，所以这两个数都是完全数。
（1）程序窗口界面及控件自行设计。
（2）单击“开始”按钮后，在文本框中显示求出的结果。
（3）请用进度条提示.
Dima,b,c,d,iAsInteger
Fora=2To2000
Forb=1Toa-1
d=aModb
Ifd=0Then
c+=b
Ifa=cThen
TextBox1.Text+=a.ToString+"
ProgressBar1.Value=a
第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）
Dima（10,10）AsInteger
a（1,1）=1
Fori=2To10
a（i,1）=1
Forj=2Toi
a（i,j）=a（i-1,j-1）+a（i-1,j）
Forj=1Toi
TextBox1.Text+=a（i,j）.ToString+"
TextBox1.Text+=vbCrLf
第3题求最小值
建立一个4行3列的二维数组，找出其中最小的元素所在的行和列，并在文本框中输出该值及其行、列位置。
Dima（,）AsInteger={{45,21,13},{42,15,16},{37,18,29},{39,51,
升级会员 