1 / 14
文档名称:

VB程序设计教程第四版课后答案.pdf

格式:pdf   大小:407KB   页数:14页
下载后只包含 1 个 PDF 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

VB程序设计教程第四版课后答案.pdf

上传人:小s 2022/6/22 文件大小:407 KB

下载得到文件列表

VB程序设计教程第四版课后答案.pdf

文档介绍

文档介绍:: .
: Text2=””: Text3=””: Text4=””
End Sub

3.文本框、“转大写”命令按钮和“转大写”命令按钮的名称分别为 text1、command1 和
command2
Private Sub Command1_Click()
Text1=Ucase(text1)
End Sub
Private Sub Command2_Click()
Text1=Lcase(text1)
End Sub

第五章****题参考答案
一、选择题:
1—11: CAABBABBBCC
二、填空题
1.(3) 2. 1 2 3 3.2 2 3 4.160 5.9
6.78 7.x<=5 (或 x<6 或 x<7) 8.B
9.iSum iSum+j 1250
三、编程题
1.Private Sub Form_Click()
Dim i%,s%
S=0
For i = 101 To 200 step 2
If i mod 3<>0 then
Print i
S=s+i
End If
Next i
Print s

End Sub

2.Private Sub Form_Click()
Dim n%,s&
S=1:n=0
While s<=400000N=n+1
S=s*n
Wend
If s>400000 Then n=n-1
Print n
End Sub

3.Private Sub Form_Click()
Dim imin%,imax%,i%,R%
Imin=100:imax=20
For i=1 to 20
R=Int(Rnd*51+50)
If R>imax Then imax=R
If R<IMIN Then imin="R Next i
Print imax,imin
End Sub

第六章****题参考答案
一、选择题:
1—13: ABAACCBADADBB
二、填空题
1.Interval =time
2. InterVal
三、编程题




第七章****题参考答案
一、选择题:
1—12: DCADD BBDAC CB
二、填空题
1.42 2.Index 3.41
4.A(i)=a(11-i) a(11-i)=Tmp
5.1 6.X Mod 7=0 7.210
8.0 To 8 i+1 To 9
9.3 K 1
10. 1001 Max MaxMax)
三、编程题
1.Private Sub C1_click()
If OP1(0).Value=True Then “选择了椭圆形”
If OP1(1).Value=True Then “选择了圆形”
If OP1(2).Value=True Then “选择了正方形”
End Sub2.统计按钮名为 Command1,输入框名为 text1,输出框为 text2(MultLine 设为 True)
Private Sub Command1_click()
Dim X(1 to 26) AS Integer,I As Integer
Dim S As String,L As Integer
L=Len()
For i=1 To L
S=Mid(Text1,I,1)
S=Ucase(S)
If S >= "A" And S <= "Z" Then
x(Asc(S) - 65 + 1) = x(Asc(S) - 65 + 1) + 1
End If
Next i
For i=1 To L
Text2=text2 & Chr(64+i) & “=” & x(i) & “ “
If I Mod 7=0 then Text2=text2 & chr(13)+chr(10)
Next i

End Sub