- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
把一个数分成若干个自然数之和,如果要使这些自然数的乘积最大,那么这些自然数应全是2或3,且2最多不超过2个。在文本框Text1中输入一个自然数,单击“分解”按钮,在列表框List1中输出他们的乘积表达式。程序运行的界面如图所示:

Private Sub Command1_Click()
Dim n As Integer,cj As Integer,s As String
n=Val(Text1.Text)
cj=____①____
s=”s=”
Do While ____②____
If n<>4 Then
n=n-3
cj=cj*3
s=s+”3×”
Else
n=n-2
cj=cj*2
s=s+”2×”
End If
Loop
cj=____③____
If n=3 Then s=s+”3” Else s=s+”2”
Text2.Text=s
Text3.Text=cj
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________

Private Sub Command1_Click()
Dim n As Integer,cj As Integer,s As String
n=Val(Text1.Text)
cj=____①____
s=”s=”
Do While ____②____
If n<>4 Then
n=n-3
cj=cj*3
s=s+”3×”
Else
n=n-2
cj=cj*2
s=s+”2×”
End If
Loop
cj=____③____
If n=3 Then s=s+”3” Else s=s+”2”
Text2.Text=s
Text3.Text=cj
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
国际标准书号ISBN分成四组的10位数字组成,前面9位数字分组号、出版社和书序号三组,最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位),取出的数字依次乘以10、9、8……2,把各次的乘积相加,用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码,单击“校验”按钮Cmd1,在文本框Text2输出结论。程序运行的界面如图所示:

实现上述功能的VB程序如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Dim s As String,i As Integer,s1 As String,sum As Integer,t As Integer
Dim jy As Integer
s=Text1.Text
t=0:sum=0
For i=1 To Len(s)
s1=Mid(s,i,1)
If s1>=”0” And s1<=”9” Then
′①
If t<10 Then
sum=sum+Val(s1)*(11-t)
ElseIf t=10 Then
′②
End If
End If
Next i
sum=11-sum Mod 11
If
Then′③
Text2.Text=”该校验码中数字不是10位数!”
Else
If jy=“X” and sum=10 Then
Text2.Text=”校验通过”
ElseIf val(jy)=sum then
Text2.Text=”校验通过”
Else
Text2.Text=”校验不通过”
End If
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________

实现上述功能的VB程序如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Dim s As String,i As Integer,s1 As String,sum As Integer,t As Integer
Dim jy As Integer
s=Text1.Text
t=0:sum=0
For i=1 To Len(s)
s1=Mid(s,i,1)
If s1>=”0” And s1<=”9” Then

If t<10 Then
sum=sum+Val(s1)*(11-t)
ElseIf t=10 Then

End If
End If
Next i
sum=11-sum Mod 11
If

Text2.Text=”该校验码中数字不是10位数!”
Else
If jy=“X” and sum=10 Then
Text2.Text=”校验通过”
ElseIf val(jy)=sum then
Text2.Text=”校验通过”
Else
Text2.Text=”校验不通过”
End If
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
若已知当前的人均GDP水平和GDP年增长率,可以计算达到某个GDP水平所需年份。在文本框Text1、Text2、Text3中分别输入人均GDP、年增长率和达到的GDP水平,单击计算按钮Command1,在文本框Text4中输出所需年数。程序运行界面如下:

(1)在设计程序界面时,使应使用图b所示“控件工具箱”中的________(填写相应编号)添加“计算”按钮。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim gdp As Single,ddgdp As Single,zc As Single,y As Integer
gdp=Val(Text1.Text)
zc=Val(Text2.Text)
ddgdp=Val(Text3.Text)
y=0
Do While ____①____
____②____
gdp=gdp*(1+zc)
Loop
Text4.Text=Str(y)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________

(1)在设计程序界面时,使应使用图b所示“控件工具箱”中的________(填写相应编号)添加“计算”按钮。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim gdp As Single,ddgdp As Single,zc As Single,y As Integer
gdp=Val(Text1.Text)
zc=Val(Text2.Text)
ddgdp=Val(Text3.Text)
y=0
Do While ____①____
____②____
gdp=gdp*(1+zc)
Loop
Text4.Text=Str(y)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
一辆卡车运矿石,晴天每天运20次,雨天每天最多运12次,他一共运了8天,共112次,则晴天和雨天各有几天。用VB程序来解决这个问题,单击按钮Command1,在文本框Text1中输出晴天的天数,在文本框Text2中输出雨天的天数,程序代码如下:
Private Sub Command1_Click()
i=1
j=7
Do While ____①____
i=____②____
j=____③____
Loop
Text1.Text=Str(i)
Text2.Text=Str(j)
End Sub
则下列说法正确的是( )
Private Sub Command1_Click()
i=1
j=7
Do While ____①____
i=____②____
j=____③____
Loop
Text1.Text=Str(i)
Text2.Text=Str(j)
End Sub
则下列说法正确的是( )
A.①应填的代码为 i*20+j*12<>112 |
B.②应填的代码为i-1 |
C.③应填的代码为j+1 |
D.描述该算法的思想为解析算法 |
阅读下列程序段并回答问题。
a=3
b=6
b=a
c=b
a=c
上述程序执行后,变量a的值是_________,变量b的值是_________。
a=3
b=6
b=a
c=b
a=c
上述程序执行后,变量a的值是_________,变量b的值是_________。
程序的三种基本结构为( )。
A.顺序结构、树形结构和选择结构 |
B.网状结构、顺序结构和选择结构 |
C.顺序结构、选择结构和循环结构 |
D.网状结构、循环结构和树形结构 |
以下VB 程序段执行后,输出的结果是( )。
m=1
n=2
if true then print m else print n
m=1
n=2
if true then print m else print n
A.1 | B.2 |
C.1 2 | D.2 1 |