vb华东交大周美玲版第5章答案.docVIP

上机实验解答 1.计算2+4+6+…+100之和。 代码： Private Sub Command1_Click() Dim i%, sum% sum = 2 For i = 4 To 100 sum = sum + i Next Print 2+4+6+8+...=; sum End Sub 2.编写程序：把输入的数据逆序显示。如，输入4321，输出1234。 代码： Private Sub Command1_Click() Dim str1 As String, str2 As String Dim n As Integer str1 = Text1.Text n = Len(Trim(str1)) For i = n To 1 Step -1 str2 = str2 Mid(str1, i, 1) Next i Print str2 End Sub 3．在窗体上输出如下图所示的“数字金字塔”。 代码： Private Sub Form_Click() Dim i%, j% For i = l To 9 Print Tab(30 - i * 3); 定位每行的起始点 For j = 1 To i Print j; Next j For j = i - 1 To 1 Step -1 Print j; Next j Print Next i End Sub我国古代数学家张丘建在算经里提出一个世界数学？Private Sub Command1_Click() Dim x%,y%,z% 变量类型尽量少用变体类型，运行时间可减少 For x = 0 To 20 　For y = 0 To 33 将循环次数多的放在循环内 　 z = 100 - x - y 　　If 5 * x + 3 * y + z /3= 100 Then 　　 　　Print x; y; 100 - x – y 　　　End If 　　Next y Next x End Sub 代码： 利用数值实现 Private sub command1_click() Dim s as integer For i=1 to 6 S=0 For j=1 to i S=s*10+j If I mod 2=0 then Picture1.print “-“;s; Else Picture1.print “”;s; End if Next j Picture1.print Next i End sub 利用字符串子串实现 Private sub command2_click() Dim s as string S=”123456” For i=1 to 6 For j=1 to i If I mod 2=0 then Picture1.print “-“;left(s,j); Else Picture1.print “”;left(s,j); End if Next j Picture1.print Next i End sub 6．猴子吃桃子。小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半零一个，到第七天早上要吃时只剩下一个桃子了，问小猴那天共摘下了多少个桃子？ Private Sub Form_Click() Dim n%, i% x = 1 第7天的桃子 Print 第7天的桃子数为:1只 For i = 6 To 1 Step -1 x = (x + 1) * 2 Print 第; i; 天的桃子数为:; x; 只 Next i End Sub 7.规范文字。对输入的任意大小文章进行整理，规则：所有句子开头为大写字母，其它都是小写字母，句子结束符为“.”、“?”、“!”。运行结果如图所示。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then c0 = . For i = 1 To Len(Text1.Text) c1 = Mid(Text1.Text, i, 1) Select Case c0 Case !, !, ., ? c1 = UCase(c1) Case Else c1 = LCase(c1) End Select Text2.Text = Text2.Text c1 c0 = c1