VB复习题(带答案)(1)

  • 格式:doc
  • 大小:380.50 KB
  • 文档页数:14

程序填空1、'功能:要求输入若干学生的成绩,计算平均分和高于平均分的人数,并将这两个数据放入数组的最后。

Private Sub Form_Click()Dim mark() As Integer, i%, n%, avern = InputBox("输入学生的人数")ReDim mark(1 To n)aver = 0For i = 1 To nmark(i) = Int(Rnd * 101)aver = aver + mark(i)Next i'**********SPACE********** preserveReDim 【?】 mark(1 To n + 2) '增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保留 mark(n + 1) = aver / nmark(n + 2) = 0For i = 1 To n'**********SPACE**********If mark(i) > mark(【?】) Then mark(n + 2) = mark(n + 2) + 1 n+1Next iFor i = 1 To nPrint "mark("; i; ")="; mark(i)Next iPrint "平均分="; mark(n + 1), "高于平均分人数="; mark(n + 2)End Sub2、功能:以下程序的功能如(图1)。

Private Sub Form_Click()Dim a%, b%, c%, d!, x1, x2, p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 Then'**********SPACE**********If 【?】 Then d>0r = Sqr(d) / (2 * a)x1 = p + rx2 = p - r Elsex1 = px2 = p'**********SPACE**********【?】 end ifPrint "x1="; x1, "x2="; x2'**********SPACE**********【?】 elseq = Sqr(-d) / (2 * a)Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"End IfEnd Sub3、功能:以下程序用于判断一个正整数(≥3)是否为素数。

Private Sub Form_Click()n = InputBox("请输入一个正整数(≥3)")k = Int(Sqr(n))i = 2swit = 0'**********SPACE**********Do While i <= k And 【?】 swit=0'**********SPACE**********If 【?】 Then n mod i=0swit = 1Else'**********SPACE**********【?】 i=i+1End IfLoopIf swit = 0 ThenPrint n; "是一个素数"ElsePrint n; "不是素数"End IfEnd Sub4、功能:下面的程序段,用于实现在一个nXm的矩阵中,找出值最大的元素所在的行和列,并输出其值及行号和列号。

Private Sub Form_Click()Dim mat() As IntegerDim n as integer, m As Integer页脚页脚Elsem = bEnd If'**********SPACE**********If 【?】 Then m>cmax = mElsemax = cEnd IfEnd Function7、功能:以下程序段利用随机函数生成15个10-100之间的整数,然后用选择法将其从小到大排序。

Private Sub Form_Click()Const n = 15Dim a(1 To n) As IntegerDim i As Integer, j As Integer, t As Integer, min As IntegerRandomizeFor i = 1 To n'**********SPACE**********a(i) =【?】 int(rnd*91+10)Next iFor i = 1 To nPrint a(i);Next iPrintFor i = 1 To n - 1'**********SPACE**********【?】 t=IFor j = i + 1 To nIf a(j) < a(t) Then t = jNext j'**********SPACE**********If 【?】 Then t<>imin = a(i): a(i) = a(t): a(t) = minEnd IfNext iFor i = 1 To nPrint a(i);Next i End Sub8、功能:下面的程序段用于实现以下功能:利用冒泡法将一组整数从小到大排序。

Private Sub Form_Click()Const n = 15Dim a(1 To n) As Integer, work As BooleanDim i As Integer, j As Integer, x As IntegerRandomizeFor i = 1 To na(i) = Int(90 * Rnd) + 10Next iFor i = 1 To nPrint a(i);Next iPrint'**********SPACE**********For i = n To 2 【?】 step -1work = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j): a(j) = a(j + 1): a(j + 1) = x'**********SPACE**********【?】 work=falseEnd IfNext j'**********SPACE**********If work Then 【?】 exit forNext iFor i = 1 To nPrint a(i);Next iEnd Sub9、功能:以下程序的功能如(图1)。

Private Sub Form_Click()Dim s As Single, m As Integer, p#s = 1For m = 1 To 10'**********SPACE**********p=【?】n(m)s = s + 1 / p页脚页脚页脚页脚页脚页脚页脚综合界面设计题一、请按照题目要求设计指定的窗体。

(本题有6个项目要完成)建立如图2-12-1所示界面:1、窗体设置1)标题容为“工程学院”2)起始位置设置为屏幕中央2、在窗体的上方,添加一个文本框控件1)设置对齐方式为中间对齐2)设置文本可换行3)文本容为“NJIT”3、在文本框下方,添加一个列表框1)设置其列表容从上到下分别为:“China”、“Jiangsu”、“Nanjing”4、在列表框下方,添加一个image控件1)名称为“图片”2)边框风格为13)高度为1800,宽度为17004)装载的图片为程序所在目录的“平面图.jpg”5)不自动调整大小5、在image右边按从上到下添加两个复选框1)第一个复选框名称为“复选一”,标题为“彩色”,并被选中2)第二个复选框名称为“复选二”,标题为“黑白”6、在窗体右下角添加一个命令按钮1)名称为“按钮”2)标题为“继续”3)在单击事件里添加代码,使得列表框中增加一项,容为文本框中的容二、请按照题目要求设计指定的窗体。

(本题有5个项目要完成)建立如图2-12-2所示界面:1、窗体设置1)名称设置为“Nanjing”2)标题为“圣火路线”3)窗体背景图片设置为当前程序目录下的“.jpg”4)窗体起始位置为“所有者中心”2、在窗体上方添加一个标签控件1)名称为“标签”2)文字对齐方式为居中对齐3)背景为透明4)字体名称为黑体,字体大小为365)高度为975,宽度为34956)容为“喜迎奥运”3、在标签下方添加一个水平滚动条1)最大变化为1002)最大值为10003)最小值为10021题Dim k As Integer, s As IntegerDos = s + (w Mod 10) * (w Mod 10) w = Int(w / 10)Loop While w <> 0If s Mod 5 = 0 Thenk = 1Elsek = 0End Iffun = k 22题Dim y As DoubleDim i As IntegerFor i = 0 To my = y + 1 / (i + 5)NextFun = y第1题运行界面4、在滚动条下方添加一个文件列表框1)名称为“文件列表”2)只显示后缀名为jpg的文件5、在窗体右下角添加一个命令按钮1)名称为“Clear”2)标题为“清除”3)在单击事件里添加代码,去除掉窗体的背景图片三、请按照题目要求设计指定的窗体。

(本题有6个项目要完成)建立如图2-12-3所示界面:1、窗体设置1)名称为“个人介绍”2)标题为“我的个人信息”2、在窗体上方添加一个文本框控件1)文本容为“个人简历”2)设置文本被锁定3)文本允许多行4)该文本框设置为不可见3、在文本框下添加一个标签控件1)容右对齐 2)标题容为“所获奖励”3)该标签不可见4、在标签下添加一个组合框控件1)名称为“组合框”2)列表项目依次为“小学”、“初中”、“高中”、“大学” 3)列表项目排序属性设置为True5、添加两个一级菜单,均无子菜单1)第一个一级菜单,名称为Menu1,标题为“个人简历” 2)第二个一级菜单,名称为Menu2,标题为“所获奖励” 3)在Menu1的单击事件里添加代码,使文本框可见4)在Menu2的单击事件里添加代码,使标签可见6、在窗体右下角添加一个命令按钮1)标题为“清除”2)在单击事件里添加代码,清除组合框里的所有项目图2-12-2 第2题运行界面图2-12-3 第3题运行界面页脚。