VB语言第5章课堂讨论PPT教学课件

If k Mod 78 = 0 And a = b And c = d Then
Print k
End If
Next k En2d020S/1u2/b12
13
主页
另一解法 (使用字符串处理来解题)
某四位数ABCD能够被78整除，它的千位数字与个位数字相同，
百位数字与十位数字相同（即：A=D，B=C），求出这个数。 此
16
主页
If Not (j Mod 7 = 0) Then
'不被7整除
List1.AddItem j
'不被7整除时,把j放入列表框
k=k+1
'个数加1
End If
If k = 100 Then
‘达到100个时,强制退出
Exit For
End If
Next j
End202S0/u12b/12
11
主页
编程题第3题
x = Left(x, p - 1) + ____(1)____
Else
p =____(2)_____ End If p =____(3)_____
(1)Mid(x, p+3) (2)(2)p=p+4
Loop MsgBox("处理结果: " + x)
2020/12/12
(3)(3)p=InStr(p,x,"12
编程题第3题A
b = Mid(x, 2, 1)
c = Mid(x, 3, 1)
d = Right(x, 1)
If k Mod 72 = 0 And a = d And b = c Then
Print k
End If
Next k End202S0/u12b/12
15
主页
PPT教学课件
谢谢观看
Thank You For Watching
(1) A. 1 (2) A. 2 (3) A. 1
B. 2
C. 3
D. 4
B. 3
C. 4
D. 5
B. 2
C. 3
D. 4
20答20/1案2/12：(1)C (2)C (3)A
4
主页
4. 以下程序用于计算
S = 1 + (1 + 3) + (1 + 3 + 5) + …… + (1 + 3 + 5 + …… + 49) 将下列程序代码补充完整。
If ××× Then List1.AddItem n k=k+1
End If
BC
A. n Mod 7 = 0
B. Not (n Mod 7 = 0) 多
C. n Mod 7 <> 0
选
D. k<=99
n=n+1 202L0/o12o/p12
BC 9 主页
Private Sub Comd1_Click()
Dim c As Integer, d As Integer
Show
For k = 1000 To 9999
a = Int(k / 1000)
b = Int((k - 1000 * a) / 100)
c = Int((k - 1000 * a - 100 * b) / 10)
d = k Mod 10
除掉，但“1234”子字符串则保留，如“AB123C1234DE123F”处
理成“ABC1234DEF”。
填空题
x = InputBox("输入字符串")
p = InStr(x, "123")
Do While p > 0
If Mid(x, p + 3, 1) <> "4" Then
X——处理结果 P——处理位置 逐次调整x和p
Dim n As Integer
n = Val(Text1.Text)
'初始值
k=0
'计数
Do While k <= 99
'控制计数100个
If Not (n Mod 7 = 0) Then '不被7整除
List1.AddItem n ‘不被7整除时,把n放入列表框
k=k+1
'个数加1
End If
n=n+1
D. n
C
(3) A. s + n 2020/12/12
B. n + t C. n
D. s + t
D5
主页
二、多选题
设c和t均为整型变量，分别具有初值1和10。在下列循环语 句中，循环体执行次数为3次的是 BD
A．Do While c<=t c = c+3
Loop
C. Do C = 3*c + 1
Private Sub Form_Load()
Dim k As Integer, x As String, a As String
Dim b As String, c As String, d As String
Show
For k = 1000 To 9999
x = Trim(Str(k)) a = Left(x, 1)
s=0
For k = 5 To 25 Step 7
s=s+k
Next k
Print s
A. 26
B. 36
C. 37 D. 6序段时，内循环的总循环次数为___(1)___；执
行该程序段后，变量s的值是___(2)___，变量t的值是___(3)___ s=0 For m = 2 To 1 Step -1 t=m For n = 1 To m s=s+n Next n Next m
t = 0: n = 1: s = 0
Do While ____(1)____
t = ____(2)____
s = ____(3)____
n=n+2
Loop
Print "s="; s (1) A. n = 49 B. n < 49 C. n <= 49 D. n <= 50 C
(2) A. t + s B. s + n C. n + t
第5章
多选题 填空题 编程题
2020/12/12
1
退出 主页
一、单选题（补充）
1．下面程序段运行的结果是__B___。
s=2 For k = 8 To 18 Step 4
s=s+2 Next k Print s
A. 6
B. 8
C. 10
D. 36
2020/12/12
2
主页
2. 下列程序段的运行结果(即 s 的值)是 B
3")
7
主页
编程及上机调试
4. 指定一个初始值，从该数值开始，找出100个不能被7
整除的自然数。要求通过文本框来接收这个初始值，找出的自
然数显示在列表框中。
编程第4题
(1) 用户界面
Text1 Comd1
2020/12/12
List1
8
主页
(2) 几点考虑
① 自然数n
初始值 n=Val(Text1.Text)
'自然数加1
Loop
End Sub
2020/12/12
10
主页
另一解法
Private Sub Comd1_Click()
Dim n As Integer
编程第4题A
n = Val(Text1.Text)
'初始值
k=0
'计数
For j = n To n + 1000
'从n～n+1000循环，足够有100个
序 错
For k = 1000 To 9999
在
Next k
哪
If k Mod 78 = 0 And a = b And c = d Then
里
Print k
?
End If
a = Int(k / 1000)
b = Int((k - 1000 * a) / 100)
c = Int((k - 1000 * a - 100 * b) / 10)
Loop Until c>t
E. Do C = t\c : c = c + 2
2020L/12o/1o2p While c<t
B. Do Until c*t>40 c = c*2
Loop
D. For k=c To t Step 4 c = c+3
Next k
6
主页
填空题
从字符串中查找子字符串“123”，将该子字符串从字符串中删
n, n+1, n+2, ……
若n满足条件(不能被7整除)，则存入列表框
② 计数器
k表示个数，取100个
k = k+1
用于控制循环的次数
③ 程序基本结构
A. k<99 B. k<100 多 C. k<=99 选
D. k<=100
n = Val(Text1.Text) : k = 0 Do While k ×××
d = k Mod 10 End202S0/u12b/12
12
主页
某四位数ABCD能够被78整除，它的千位数字与百位数字相同， 十位数字与个位数字相同（即：A=B，C=D），求出这个数。
编程题第3题
Private Sub Form_Load()
Dim k As Integer, a As Integer, b As Integer
Private Sub Form_Load()
程
Dim k As Integer, x As String, a As String Dim b As String, c As String, d As String
序
Show
对
For k = 1000 To 9999
吗
x = Str(k) a = Left(x, 1)
?
b = Mid(x, 2)
c = Mid(x, 3)
d = Right(x, 1)
If x Mod 72 = 0 And a = d And b = c Then
Print k
End If
Next k
End202S0u/1b2/12
14
主页
某四位数ABCD能够被78整除，它的千位数字与个位数字相同， 百位数字与十位数字相同（即：A=D，B=C），求出这个数。
某四位数ABCD能够被78整除，它的千位数字与百位数字相同，
十位数字与个位数字相同（即：A=B，B=D），求出这个数。 此
Private Sub Form_Load()
程
Dim k As String, a As Integer, b As Integer Dim c As Integer, d As Integer Show