vb6.0吉林农业大学出版社,课后456章编程题答案_文档下载_文档资料库
当前位置： >>
vb6.0吉林农业大学出版社,课后456章编程题答案
Vb 第四单元编程题答案1、从键盘上输入 4 个数，编写程序，计算并输出这 4 个数的和及平均值。通过 inputbox 函数输入数 据，在窗体上显示和及平均值。 Dim a as single For i=1 to 4 a=inputbox（ “请输入一个数：， ”“数据输入” ） sum=sum+a n=n+1 avg=sum/n next i print “和是： ”,sum print “平均值是：，avg ” 2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数 据用适当的格式在窗体上显示出来。 Dim a as variant Fontsize=20 a=inputbox（ “请输入姓名：， ”“数据输入” ） print “姓名：；a ” a=inputbox（ “请输入年龄：， ”“数据输入” ） print “年龄：；a ” a=inputbox（ “请输入通信地址：， ”“数据输入” ） print “通信地址：；a ” a=inputbox（ “请输入邮政编码：， ”“数据输入” ） print “邮政编码：；a ” a=inputbox（ “请输入电话：， ”“数据输入” ） print “电话：；a ” 3．a=5，b=2.5，c=7.8，编程序计算： y=（πab）/（a+bc） 程序： Dim a as single，b as single，c as single a=5 b=2.5 c=7.8 pi=3.14 y=（pi*a*b）/（a+b*c） print “结果是： ”;y 4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。 Dim a as long，d as integer ，h as integer，s as integer a=inputbox（ “请输入秒数：， ”“数据输入” ） d=int（a/86400） h=int（ （a-d*86400）/3600） s=a-d*86400-h*3600print d； “日” ；h； “时” ；s； “秒” 5、自由落体位移公式为：s=gt /2+v0t 其中 v0 为初始速度， 为重力加速度， 为经历的时间， g t 编写程序， 求位移量 s。 v0=4.8m/s， 设 t=0.5s， g=9.81m/s ，在程序中把 g 定义为符号常量，用 inputbox 函数输入 v0 和 t 两个变量的值。 Dim v as single，t as single，s as single g=9.81 v= inputbox（ “请输入初始速度：， ”“数据输入” ） v=val（v） t=inputbox（ “请输入经历的时间：， ”“数据输入” ） t=val（t） s=g*t*t/2+v*t print “位移量是：”;s 6．编程计算并输出 S 的值:s=2+4+6+8+…+100 dim i,s as integer s=0 for i=2 to 100 step 2 s=s+i next print s 7、给定三角形的 3 条边长，计算三角形的面积。编写程序：首先判断给出的 3 条边能否构成三角形， 如可以构成，则计算并输出三角形的面积，否则要求重新输入。当输入-1 时结束程序。 Dim a as single；b as single；c as single Start: a = inputbox(“请输入第一条边长-1 结束：”,”数据输入”) a=val（a） if a=-1 then end end if b=inputbox（ “请输入第二条边长”“数据输入” ， ） b=val（b） c=inputbox（ “请输入第三条边长”“数据输入” ， ） c=val（c） if a+b&=c or a+c&=b or b+c&=a then msgbox（ “您输入的三条边长不能构成三角形，请重新输入！） ” goto start else l=（a+b+c）/2 s=sqr（l*（l-a）*（l-b）*（l-c） ） end if print “三角形的面积为：；s ” 8、税务部门征收所得税，规定如下： （1）收入在 200 元以内，免征 （2）收入在 200-400 元内，超过 200 元的部分纳税 3%2 2（3）收入超过 400 元的部分，纳税 4% （4）当收入达 5000 元或超过时，将 4%税金改为 5% 编写程序实现上述操作。 Dim x as single，y as single x=inputbox（ “请输入收入！， ”“数据输入” ） x=val（x） if x&=200 then y=0 elseif x&200 and x&400 then y=(x-200)*0.03 elseif x&=400 and x&5000 then y=(x-400)*0.04+200*0.03 elseif x&=5000 then y=(x-400)*0.05+200*0.03 end if print “需要纳税的金额为：”;y 9、假定有一下每周工作安排： 星期一、三：讲计算机课 星期二、四：讲程序设计课 星期五：进修英语 星期六：政治学习 星期日：休息 试编写一个程序，对上述工作日程进行检索。程序运行后，要求输入一周里的某一天，程序将输出这 一天的工作安排。在输入时用 0-6 分别代表星期日到星期六，如果输入 0-6 之外的数，则程序结束运行。 Dim x as integer x=inputbox（ “请输入一个整数进行检索：， ”“数据输入” ） select case x case 0 y=“休息” case 1 y=“讲计算机课” case 2 y=“讲程序设计课” case 3 y=“将计算机课” case 4 y=“将程序设计课” case 5 y=“进修英语” case 6 y=“政治学习” case else end end selectprint y 10。vb 数字金字塔 1 121 12321 一直到 9 Private Sub Form_Click() Dim a(1 To 5) As Integer For j = 1 To 5 a(j) = j Next j For i = 1 To 5 Print Tab(30 - i * 3); For j = 1 To 2 * i - 1 If j & i Then Print a(2 * i - j); Else Print a(j); End If Next j Next i End Sub 11．勾股定理中三个数的关系是 a*a+b*b=c*c。编写程序，输出 30 以内满足上述关系的整数组合。 例如 3，4，5 就是一个满足要求的整数组合 Private Sub Command1_Click() Dim Max As Integer, I As Integer, J As Integer, K Max = 30 For I = 3 To Max - 2 For J = I + 1 To Max - 1 K = Sqr(I ^ 2 + J ^ 2) If K = Int(K) And K &= Max Then Print I, J, K Next Next End Sub 12．如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。例如，整数 28 的因子为 1，2，4，7，14，其和 1+2+4+7+14=28，因此 28 是一个完全数，编写一个程序，从键盘上输入整数 M 和 N，求出 M 和 N 之间的所有的完全数 form load() 'int i,j,m,n,sum m =inputbox(&输入最小正整数&) n =inputbox (&输入最大正整数&) for j=m to n sum=0 for i=1 if next if j=sum next then print sum & & 是完全数& to j then sum=sum i (j mod i=0) and (i &&j )print &查找完毕& beep end sub 13．从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号和考试成绩，并根据成绩按下 面的规定输出对该学生的评语： 成绩 评语 80～100 very good 60～79 good 50～59 fair 40～49 poor 0～39 fail(所需控件：三个标签,两个文本框，一个命令按扭) Private Sub Command1_Click() Dim s$, a$, mark! s = Text1.Text mark = Val(Text2.Text) Select Case mark Case Is & 40 a = &fail& Case Is & 50 a = &poor& Case Is & 60 a = &fair& Case Is & 80 a = &good& Case 80 To 100 a = &very good& End Select Print &学号：& & s & vbCrLf & &成绩评定为& & a End Sub 14．一个两位的正整数，如将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做 前者的对调数。如给定一个两位的正整数，请找到另一个两位的正整数，值得这两个整数之和等于他们各 自的对调数之和，例如，12+32=21+23.编写程序，输入一个两位的正整数，把具有这种特征的每一对两 位正整数都找出来 Private Sub Command1_Click() Dim a As String Dim i As Long a = InputBox(&输入一个两位的正整数:&) If Val(a) &= 0 Or Val(a) &= 100 Then MsgBox &输入不合法& Exit Sub End If For i = 1 To 99 If Val(a) + i = Val(getDuiTiao(a)) + getDuiTiao(CStr(i)) Then Debug.Print i End If NextEnd Sub Private Function getDuiTiao(ByVal vStr As String) As String Dim strTmp As String strTmp = Right(CStr(vStr), 1) & Left(CStr(vStr), 1) getDuiTiao = strTmp End Function | 14、编写程序，打印出“杨辉三角”图形。 For i=1 to 9 Print tab（30-i*3）; For j = 1 to i P Next j For j= i-1 to 1 step -1 P Next j Print Next iVb 第五单元编程题答案1.从键盘上输入 20 个整数，并放入一个一维数组中，然后将其前 10 个元素与后 10 个元素对换，即： 第 1 个元素与第 20 个元素互换，第 2 个元素与第 19 个元素互换……第 10 个元素与第 11 个元素互换。 分别输出数组原来各元素的值和对换后各元素的值。 Option Base 1 Private Sub Form_Click() arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20) Print &原来数组：& For i = 1 To 20 Print arr(i); Next i Print For i = 1 To 10 For j = 11 To 20 t = arr(i) arr(i) = arr(j) arr(j) = t Next j Next i Print &对换后数组：& For i = 1 To 20 Print arr(i); Next iEnd Sub 2．VB 编写程序，建立并输出一个 10*10 的矩阵，该矩阵两条对角线元素为 1，其余元素均为 0 Private Sub Form_Click() Dim a(1 To 10, 1 To 10) As Integer For i = 1 To 10 For j = 1 To 10 a(i, j) = 0 If i = j Then a(i, j) = 1 If i + j = 11 Then a(i, j) = 1 Print a(i, j); & &; Next j Print Next i End Sub 同问 3.VB 设计：有个 n*m 的矩阵，各元素值由键盘输入，求全部元素的平均值，并输出高于平均值的元 素及它们的行列号 Private Sub Form_Click() Dim a!(1 to n, 1 to m) Dim aver! Dim sum! For i = 0 To n For j = 0 To m a(i, j) = InputBox(&请输入第& & i + 1 & &行& & &第& & j + 1 & &列的数字&) sum = sum + a(i, j) Next j Next i aver = sum /nm Print &平均数为& & aver Print &大于平均值的数有：& For i = 0 To n For j = 0 To m If a(i, j) & aver Then Print a(i, j), &第& & i + 1 & &行& & &第& & j + 1 & &列& End If Next j Next i End Sub 6． 随机生成两个 3*3 的矩阵 A 和 B， 将矩阵 A 和 B 相加存放在矩阵 C 中， 单击窗体时在 3 个 Picture 图形框中分别输出这三个矩阵 private sub form_click() dim a(2,2),b(2,2),c(2,2),i,jrandomize for i=0 to 2 for j=0 to 2 a(i,j)=int(rnd*10) picture1.print a(i,j), b(i,j)=int(rnd*10) picture2.print b(i,j), c(i,j)=a(i,j)+b(i,j) picture3.print c(i,j), next picture1.print picture2.print picture3.print next end sub 7．设某班共 10 名学生，为了评定某门课程的奖学金，按规定超过全班平均成绩 10%者发给一等奖， 超过全班成绩 5%者发个二等奖。 输出应获奖学金的学生名单（包括名字，学好，成绩，奖学金 type strc no as integer '定义学号为数值型 xm as string cj as single ‘定义成绩为单精度型 jl as string end type dim stu(1 to 10) as strc，ave as single for i= 1 to 10 stu(i).no=i stu(i).xm=val(inputbox(&请输入& & i “个学生的姓名 &)) stu(i).cj=val(inputbox(&请输入& & i “个学生的成绩 &)) ave=ave+stu(i).cj stu(i).jl=&& next i ave=ave/10 : ave2=ave *1.1 for i= 1 to 10 if stu(i).cj &=ave2 elseif stu(i).cj &=ave3 stu(i).jl=&二等奖学金& else stu(i).jl=&未获奖& endif print stu(i).no & stu(i).xm & next i 9.设有如下两组数据。 stu(i).cj & stu(i).jl then then stu(i).jl=&一等奖学金& : ave3 =ave3*1.05 ‘定义奖学金类型（1）2，8，7，6，4，28，70，25 （2）79，27，32，41，57，66， 编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即 2+79， 8+27，……，25+66，并把相应的结果放入第三个数组中，最后输出第三个数组的值。 Option Base 1 Private Sub Form_Click() Dim A, B, C(8) As Integer A = Array(2, 8, 7, 6, 4, 28, 70, 25) B = Array(79, 27, 32, 41, 57, 66) For i = 1 To 8 C(i) = A(i) + B(i) Next i Print &第一个数组为：&; For i = 1 To 8 Print A(i); Next i Print Print &第二个数组为：&; For i = 1 To 6 Print B(i); Next i Print Print &第三个数组为：&; For i = 1 To 8 Print C(i); Next i Print End Sub 10 编写程序，把下面的数据输入到一个二维数组中： 25 36 78 13 12 26 88 93 75 18 22 32 56 44 36 58 然后执行以下操作： 1） 输出矩阵两个对角线上的数； 2） 分别输出各行和各列的和。 3） 交换第一行和第三行的位置。 4） 交换第二行和第四行的位置。 5） 输出处理后的数组。 Dim a(4, 4), b(4, 4) As Integer For i = 0 To 3 For j = 0 To 3 a(i, j) = Val(InputBox(&请输入第& & i + 1 & &行第& & j + 1 & &列的数&)) Next jNext i Print &原始数据& For i = 0 To 3 Print a(i, 0) & & & & a(i, 1) & & & & a(i, 2) & & & & a(i, 3) & &和& & Val(a(i, 0) + a(i, 1) + a(i, 2) + a(i, 3)) Next i Print & 和 和 和 和& For j = 0 To 3 Print & &; Val(a(0, j) + a(1, j) + a(2, j) + a(3, j)); Next j Print '对角线 For i = 0 To 3 Print Tab(i * 2); a(i, i) Next i Print For i = 0 To 3 Print Tab((3 - i) * 2); a(i, 3 - i) Next i Print '调整 For j = 0 To 3 b(2, j) = a(0, j) b(0, j) = a(2, j) b(1, j) = a(3, j) b(3, j) = a(1, j) Next j Print &调整后数据& For i = 0 To 3 Print b(i, 0) & & & & b(i, 1) & & & & b(i, 2) & & & & b(i, 3) Next i 11．设有如下人员名册： 姓名 张得功 李得胜 王丽 性别 男 男 女 年龄 24 30 25 …… 试编写一个程序，对该名册进行检索。程序运行后，只要在键盘上输入一个人名，就可以在屏幕上显示出 这个人的情况。 例如，输入“张得功”，则显示： 要求： （1）使用动态数组，输入的人数可以根据实际情况改变。 （2）当检索名册中不存在的人名时，输出相应的信息。 （3）每次检索结束后，询问是否继续检索，根据输入的信息确定是否结束程序。 张得功 男 24 大学本科 河北 文化程度 大学本科 高中毕业 研究生 籍贯 河北 北京 山东 '第一行和第三行dim arr() Adodc1.Refresh'//定义数组Adodc1.RecordSource = &select * from 数据表 where 1=1 and 姓名=& & text1.text i_count = Adodc1.Recordset.RecordCount '/////取出数据库中满足条件的数据记录，并且计算记录条数 if i_count=0 then msgbox &查找人员不存在&,64,&提示信息& else redim arr(i_count) end if Dim Msg, Response Msg = &确认退出?& Response = MsgBox(Msg, vbQuestion + vbYesNo, &提示&) Select Case Response Case vbYes '//退出 Case vbNo '//继续 End Select 12.某单位开运动会，共有 10 人参加男子 100 米短跑，运动员和成绩如下： 207 号 156 号 453 号 096 号 339 号 名次 1 2 3 .. 10 14.5 秒 14.2 秒 15.2 秒 15.7 秒 14.9 秒 运动员 ...... ...... ...... ...... ...... .... .... .... .... .... 077 号 231 号 276 号 122 号 302 号 成绩 15.1 秒 14.7 秒 13.9 秒 13.7 秒 14.5 秒 '//重新定义数组，使符合动态数目 ............'//这里对取得数据进行显示处理编写程序，按成绩排出名次，并按如下格式输出：在 Form1 中加入一个 Command 控件，粘贴入以下代码： Dim i As Integer, j As Integer Dim n As Integer, m As Integer Dim w(9, 1) As Double Private Sub Command1_Click() Dim a1 As Double, a2 As Double a1 = 0 a2 = 0 For i = 1 To 10 For j = 0 To 9 - iIf w(j, 1) & w(j + 1, 1) Then a1 = w(j, 0) a2 = w(j, 1) w(j, 0) = w(j + 1, 0) w(j, 1) = w(j + 1, 1) w(j + 1, 0) = a1 w(j + 1, 1) = a2 End If Next j Next i For i = 0 To 9 Print w(i, 0) Next Print &名次& & & For i = 0 To 9 Print & & & i + 1 & & Next End Sub Private Sub Form_Load() For i = 0 To 9 w(i, 0) = InputBox(&请输入第& & i + 1 & &运动员的编号&) w(i, 1) = InputBox(&请输入第& & i + 1 & &运动员的成绩&) Next Command1.Caption = &名次排列& End Sub 13.杨辉三角形每一行是(x+y)的 n 次方的展开式的各项系数。例如第一行系数是 1；第二行 1，1； 第三行 1，2，1……请编写程序输出 n=10 的杨辉三角形 Option Base 1 Private Sub Command1_Click() Dim a() As Double m = InputBox(&请输入行数 &, &输入&, 0) ReDim a(m, m) As Double For i = 1 To m a(i, 1) = 1 For j = 1 To m a(j, j) = 1 If j &= 2 And j &= i - 1 Then a(i, j) = a(i - 1, j - 1) + a(i - 1, j) End If Next j Next i For i = 1 To m For j = 1 To m If i &= j Then & & Format(w(i, 0), &000&) & & & & w(i, 1) 运动员& & & 成绩&Print Tab(j * 4); Str(a(i, j)); End If Next j Print Next i End SubVb 第六章编程题答案1．编写一个求 3 个数中最大值和最小值的 VB 程序,然后用这个过程分别求 5 个数和 7 个数的最大最 小值. dim ss num=val(inputbox (&输入要求的数的个数&)) dim a(1 to num) for i=1 to num a(i)=texti.text next for m=num to 2 for n=1 to m-1 if a(n)&=a(n+1) then ss=a(n+1) a(n+1)=a(n) a(n)=ss end if next print &MAX:& & a(num) print &MIN:& & a(1) 2.编写程序，求 S=A!+B!+C!,阶乘的计算分别用 Sub 过程和 Function 过程两种方法来实现 方法一：（以前方法） Option Base 1 Private Sub form_Click() Dim a(), s() Dim sum#, str$ Dim m% m = Val(InputBox(&输入要计算几个阶乘的数&)): If m &= 0 Then MsgBox &请输入&=1 的正数&: Exit Sub ReDim a(1 To m) ReDim s(1 To m) For i = 1 To m a(i) = Val(InputBox(&输入第& & i & &个需要计算阶乘的数&)): If n & 0 Then Exit For Next i For i = 1 To m s(i) = 1 For j = 1 To a(i) s(i) = s(i) * jNext j Print a(i); &的阶乘数为：&; s(i) Next i For i = 1 To m sum = s(i) + sum Next i For i = 1 To m If i = m Then str = str & a(i) & &!& Else str = str & a(i) & &!& & &+& End If Next i Print Tab(3); &所求的&; &个数的阶乘和为：&; &=&; sum End Sub 方法二：（sub 过程 1） Sub sub1(x As Long) Dim m%, i% m=1 For i = 1 To x m=m*i Next x=m End Sub Private Sub Form_Click() Dim a&, b&, c&, i%, s# a = InputBox(&1&) b = InputBox(&2&) c = InputBox(&3&) sub1 a sub1 b sub1 c s=a+b+c Print s End Sub 3.编写一个过程，以整形作为形参。当该参数为奇数时输出 false,当该参数为偶数时输出 true function getFT(val) if(val mod 2=0) then getFT=&true& else getFT=&false& end if end function4.设 a 为一个整数,如果能使 a=xxa 成立,则称 a 为&守形数&.例如 5=25,25=625,则 5 和 25 都是守形数. 试编写一个 Function 过程 Automorphic,其形参为一正整数,判断其是否为守形数,然后用该过程查找 1 到 1000 内的所有守形数. 法一 函数 Private Sub Cd1_Click() Dim a As Long For a = 1 To 1000 Y = SS(a) If Y && 0 Then P &―&; Y Next a End Sub Function SS(X As Long) X1 = Trim(Str(X * X)) X2 = Trim(Str(X)) L = Len(X2) If Right(X1, L) = X2 Then SS = X * X End Function 法二 子程序 Private Sub Cd2_Click() Dim a As Long For a = 1 To 1000 Call SX(a) Next a End Sub Sub SX(X As Long) X1 = Trim(Str(X * X)) X2 = Trim(Str(X)) L = Len(X2) If Right(X1, L) = X2 Then Print X; &―&; X * X End Sub 5.编写求解一元二次 vb 方程 ax2+bx+c=0 的过程，要求 a，b，c 及解 x1，x2 都以参数传递的方式 与主程序交换数据，输入 a，b，c 和输出 x1，x2 的操作放在主程序中 Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single Dim x1 As Single Dim x2 As Single Dim f As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d=b^2-4*a*c If a = 0 ThenMsgBox (&二次相系数不得为零&) ElseIf d & 0 Then MsgBox (&无解&) Else f = Sqr(d) x1 = (f - b) / (2 * a) x2 = (-b - f) / (2 * a) Text4.Text = x1 Text5.Text = x2 End If End Sub 6.编写任意数的立方的函数，然后求 1-20 的立方 Private Sub Command1_Click() Dim I As Integer For I = 1 To 20 Print I & &的 3 次方=& & xxx(I)Next End Sub Function xxx(I As Integer) As Double xxx = I * I * I End Function 7.用 VB 编写一个输入 0--6 数字,显示汉字对照输出星期的 Function 过程 建立一个 form1 Option Explicit Dim A As Byte, B As String Private Sub Form_Load() Form1.AutoRedraw = True Do B = InputBox(&输入数字(0-6):&, &输入&, 0) If Val(B) & -1 And Val(B) & 7 Or Len(B) = 1 Then Exit Do Loop A = Val(B) Select Case A Case 0 B = &星期日& Case 1 B = &星期一& Case 2 B = &星期二& Case 3 B = &星期三& Case 4 B = &星期四&Case 5 B = &星期五& Case 6 B = &星期六& End Select Print B End Sub 8.VB 输入一个正整数编程判断奇数还是偶数 Private Sub Command1_Click() Dim a As String Dim n As Long a = InputBox(&输入一个正整数&, &输入&) n = CLng(a) If n Mod 2 = 0 Then P &是偶数& Else P &是奇数& End If End Sub 10.VB 输入一个正整数编程判断奇数还是偶数 Private Sub Command1_Click() Dim a As String Dim n As Long a = InputBox(&输入一个正整数&, &输入&) n = CLng(a) If n Mod 2 = 0 Then P &是偶数& Else P &是奇数& End If End Sub您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
VB程序设计课程实验报告(样本参考一)费下载.doc22页
本文档一共被下载：
次 ,您可免费全文在线阅读后下载本文档
文档加载中...广告还剩秒
需要金币：100 &&
你可能关注的文档：
··········
··········
计算机与信息学院
（VB程序设计课程）
课程名称： VB程序设计教程
系： 计算机与信息学院
业： 计算机应用技术
指导教师：
200x 年 xx 月 xx 日
实验项目列表
序号 实验项目名称 成绩 指导教师
1 VB环境和程序设计初步
2 顺序程序设计
3 选择结构程序设计
4 循环结构程序设计及数组的运用
6 窗体和常用控件
7 常用控件
8 气泡法排序程序
10 菜单设计和多文档界面
计算机与信息学院实验报告
（一）Visual Basic环境和程序设计的初步
了解Visual Basic系统对计算机软件、硬件的要求。
掌握启动与退出Visual Basic的方法。
熟悉Visual Basic的集成开发环境（IDE）。
掌握在窗体上添加控件的各种方法。
掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。
启动Visual Basic6.0,观察标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处；熟悉各个控件以及窗体设计和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。
在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”。
编写适当事件过程，当单击命令按钮时，文本框内容消失。
以解释方式运行程序。
把程序保存。然后关掉该工程。装入上面建立的程序，并在窗体上增加一个命令按钮。当单击该命令按钮，结束程序运行。保存程序。
把当前程序编译为可执行文件。
生成当前工程并退出。在windows环境下运行该工程。
创建一个“标准EXE”类型的应用程序。要求：在屏幕上显示“欢迎您的到来！”，并请输入您的名字。
Microsoft Visual Basic 6.0 中文
正在加载中，请稍后...大一VB 使用循环结构编写程序，求2+4+6+8+到100_百度知道
大一VB 使用循环结构编写程序，求2+4+6+8+到100
提问者采纳
dim i as integerdim sum as longsum=0for i=2 to 100 step 2
sum=sum+inextmsgbox &2+4+6+8+到100的和为：&
& sum试试吧
其他类似问题
循环结构的相关知识
其他1条回答
这个用循环语句计算比较方便，例如 do while 语句 ，do loop语句，for next 语句都可以for next 语句举例：Private Sub Command1_Click()
Dim i%, iSum
For i = 0 To 4 Step 2
iSum = i + iSum
Debug.Print i
Debug.Print
Debug.Print iSum
End Sub更多帮助请登录加技术Q Q即可
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
安徽大学推荐《VB程序设计》综合复习资料习题.doc52页
本文档一共被下载：
次 ,您可免费全文在线阅读后下载本文档
文档加载中...广告还剩秒
需要金币：100 &&
你可能关注的文档：
··········
··········
《VB程序设计》综合复习资料
第一章 Visual Basic程序设计概述
一、填空题Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。VB工作模式是（）A．模式B．运行模式C．汇编模式D．模式可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得下列不能打开属性窗口的操作是A．执行视图菜单中的属性窗口命令B．按F4键C．按Ctrl+TD．单击工具栏上的属性窗口按钮下列可以打开立即窗口的操作是A．Ctrl+D
5、Visual Basic的编程机制是（D ）
B．面向对象
C．面向图形
D．事件驱动
三、简答题
1、代码窗口主要包括哪几部分？
2、在工程资源管理器窗口中，主要列出了哪三类文件？
3、窗体布局窗口的主要用途是什么？
4、VB的基本特点是什么？怎样理解可视化设计？怎要理解事件驱动编程？填空题设置是否可以用Tab键来选取命令按钮，应该用______________属性_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象只有其visible属性和____________属性为true，才能接受焦点。设置控件背景颜色的属性名称是______________________。所有控件都具有的共同属性是__________________属性。一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。通常情况下，VB中一个工程主要包括如下四个文
正在加载中，请稍后...