- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB课后习题-第4
第4、5、6章 顺序结构、选择结构、循环结构程序设计
1、执行下面的程序,单击窗体,则在窗体上显示的是 。
Option Explicit
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
b = 6: c = 6.5
a = b = c
Print a
End Sub
Private Sub Form_Click()
A$ = 12: B$ = 34
C = Val(A$) + Val(B$):D = Val(A$ + B$)
Print C Mod 10; D \ 10:Print C + D
End Sub
Private Sub Form_Click()
x = 1
t = 1
Select Case t
Case Is 0
y = x + 1
Case Is = 0
y = x + 2
Case Else
y = x + 3
End Select
Print x; y
End Sub
4、下列程序段的执行结果是 。
X = 2
Y = 1
If X * Y 1 Then Y = Y – 1 Else Y = -1
Print Y – X 0
5.判断下面4个循环语句分别执行了多少次循环。
①下面循环执行了 (1) 次:
1 int2=0
2 For int1 = 1 To -2 Step -1
3 int2 = int2+1
4 Next
②下面循环执行了 (2) 次:
1 int2=0
2 For int1 = 1 To 1 Step -1
3 int2 = int2+1
4 Next
③下面循环执行了 (3) 次:
1 int2=0
2 For int1 = 1 To 10 Step 1
3 Exit For
4 int2 = int2+1
5 Next
④下面循环执行了 (4) 次:
1 Dim i As Integer, j As Integer
2 For i = 1 To 10 Step 1
3 i = i + 1
4 j = j + 1
5 Next
6 Print j
6、下列程序运行的结果为 。
Dim sum As Integer
Dim I As Integer
Dim j As Integer
Sum=0
For I=1 To 17 Step 2
For j=1 To 3 Step 2
sum=sum+j
Next j
Next I
Print sum
7、下列程序段的执行结果为 。
A = “ABBACDDCBA”
For I = 6 To 2 Step -2
X = Mid(A, I, I)
Y = Left(A, I)
Z = Right(A, I)
Z=X Y Z
Next I
Print Z
8、执行下面的程序段,文本框Text1中显示结果为 。
Dim int1 As Integer, int2 As Integer
int1 = 1
int2 = 0
Do While int1 20
int2 = int1 + int2
int1 = int1 * (int1 + 1)
Loop
Text1.Text = int2
9、阅读下面的事件过程。单击窗体后,在文本框Text1和Text2中显示的内容分别是 和 ;若将程序中A语句与B语句的位置互换,再次执行程序,单击窗体后在Text1和Text2中显示的内容分别是 和 。
1 Private Sub Form_Click()
2 Dim x As Integer, y As Integer
3 x=1 : y=0
4 Do While x3
5 y=y+x A语句
6 x=x+1 B语句
7 Loop
8 Text1.Text=x
9 Text2.Text=y
10 End Sub
10、如果依次输入75,55,45,80,30,25,40,15,20,5,下列程序段的执行结果为
Dim c As Integer, k As Integer, d As Integer
c = 70
For k = 11 To 20
x = InputBox(“输入X的数值:”)
If x c Th
文档评论(0)