Private Sub Command 1Click Dim m As Integer
Sign up to view full document!
SIGN UP
程序填空 Ø Private Sub Command 1_Click() Dim m As Integer, n As Integer Dim r As Integer m = Val(Text 1. Text) 程序功能:辗转相除法求最大公约数 n = Val(Text 2. Text) r = m Mod n Do While _____ m = n n = r r = m Mod n ____ Text 3. Text = Str(n) End Sub Ø VB程序代码中划线处应填入的语句和表达式_____。 Ø Ø Ø
x=456, 程序运行后,s=? ? • Do while x <> 0 • a=x mod 10 • x=x10 s=s*10+a • s=s*10+a loop 654
回文数判断(123321) 请说出下列程序的功能: s = Text 1. Text flag = True For i = 1 To Len(s) 2 Mid(s, Len(s) - i+ 1, 1) 1) Then If Mid(s, i, i, 1)1)<><> Mid(s, Len(s) - i+ 1, flag = False Exit For End If Next i
- Slides: 30