nullnullVB 程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
程序控制结构null程序设计
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
:
1、认真阅读题目,建立窗体
(注:窗体不一样,编程方式也不一样)
2、分析处理数据及操作先后关系
3、转化为结构(
流程
快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计
图或N-S图)
4、程序设计
5、上机检查(调试)
6、总结、改进
7、推广应用注:
1、掌握题目的分类,采用相应的程序结构和设计方法。
2、同一个题目,完善程序的逻辑、算法、优化结构。0: 程序设计1: IF选择块结构IF <条件表达式> Then
<语句组A>
Else
<语句组B >
End if1: IF选择块结构(1)基本格式:(2)执行方式:流程图示例:If score >= 60 Then
Print “祝贺你考试通过!”
Else
Print “考试未通过.”
End If
Print "继续努力!"2: 单行条件语句2: 单行条件语句(1). 基本格式
If <条件> Then 语句组A [Else 语句组B](2). 执行方式:流程图示例:If score >= 60 Then Print “通过!” Else Print “未通过.”
Print "继续努力!"注:此语句没有End if3: 比较3: 比较示例:从键盘上输入两个整数,并按从大到小输出。If a < b Then t = a: a = b: b = tnull4: 多分支选择结构 Select 格式:
Select Case <测试表达式>
Case <表达式表1>
[<语句组1>]
[Case <表达式表2>
[<语句组2>]]
…
[Case Else
[<语句组n>]]
End Select示例:
a=InputBox(“请输入一个字”) Select Case a
Case is=“。”
Print “是句号”
Case “,”
Print “是逗号”
Case "a" To "z"
Print “是小写字母"
Case “A”,”B”,”C” to “Z”
Print “是大写字母"
Case is>”0”
Print “可能是数字字符"
End SelectCase is>=“0” and is<=“9” × (不能用not 、and 、 or)null5: 条件结构示例1计算任意三角形的面积SPrivate Sub Command1_Click() ‘方法1
a = Val(InputBox("请输入三角形边长a"))
b = Val(InputBox("请输入三角形边长b"))
c = Val(InputBox("请输入三角形边长c"))
If a + b > c And a + c > b And b + c > a Then
k = (a + b + c) / 2
s = Sqr(k * (k - a) * (k - b) * (k - c))
Print s
Else
MsgBox ("输入的边长a、b、c不能组成三角形")
End If
End SubnullPrivate Sub Command1_Click() ‘方法2
a = Val(InputBox("请输入三角形边长a"))
b = Val(InputBox("请输入三角形边长b"))
c = Val(InputBox("请输入三角形边长c"))
‘注:输入的边长a、b、c必须组成三角形,否则重新输入,直到成功为至
Do While (a + b < c Or a + c < b Or b + c < a)
MsgBox ("输入的边长a、b、c不能组成三角形,请重新输入")
a = Val(InputBox("请输入三角形边长a"))
b = Val(InputBox("请输入三角形边长b"))
c = Val(InputBox("请输入三角形边长c"))
Loop ‘注:循环这种方法不能改为文本框输入,为什么?
k = (a + b + c) / 2
s = Sqr(k * (k - a) * (k - b) * (k - c))
Print s
End Sub计算任意三角形的面积SnullPrivate Sub Command1_Click() ‘方法3
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b > c And a + c > b And b + c > a Then
k = (a + b + c) / 2
s = Sqr(k * (k - a) * (k - b) * (k - c))
Text4.Text = s
Else
MsgBox ("输入的边长a、b、c不能组成三角形")
End If
End Sub计算任意三角形的面积Snull 假设广州市地铁1号线全长共有12站台,搭乘站数与车票价格的对应
关系如下表:提示: 乘客输入当前站号及目的地站号, 计算机报告(加收1元附加费)显示票价money(元),若输入的站超越(1~12),提示“ERROR!”。6: 条件结构示例2nullPrivate sub Command1_click()
Dim a%, b%, c%
a = Val(InputBox("输入当前站号 ="))
b = Val(InputBox("输入目的地站号="))
If ((a >= 1 And b <= 12) or (b >= 1 And a <= 12)) Then
n = Abs(b - a)
If (n = 1 Or n = 2) Then c = 1
If (n = 3 Or n = 4) Then c = 2
If (n = 5 Or n = 6) Then c = 3
If (n = 7 Or n = 8) Then c = 4
If (n = 9 Or n = 10) Then c = 5
If (n = 11 Or n = 12) Then c = 6
Print "票价=“;c+1
Else
Print "站号超界,ERROR!"
End If
End sub Select case n
case 1,2 :c=1
case 3,4 :c=2
case 5,6 :c=3
case 7,8 :c=4
case 9,10 :c=5
case 11,12 :c=6
End selectc=int((n+1)/2)null'当前站是陈家祠站 站号6
Private Sub Command10_Click() '票价
a = 6
If Text1.Text = "火车东站" Then b = 1
If Text1.Text = "体育西路" Then b = 2
If Text1.Text = "天河" Then b = 3
If Text1.Text = "中山东路" Then b = 4
……
n = a - d
c = Int((n + 1) / 2)
Text2.Text = c + 1
End SubSub Command1_Click() '火车东站
Text1.Text = "火车东站"
End Sub
Sub Command4_Click() '中山东路
Text1.Text = "中山东路"
End Sub
……null7: 循环块结构格式1:当型循环格式
While 循环条件
语句组
Wend2: For格式(计数循环)
For <循环变量>=<初值> To <终值> [Step <步长>]
<语句组1>
[Exit For]
<语句组2>
Next [<循环变量>]3:Do循环
格式格式一:
Do While <条件>
[<语句组1>]
[Exit Do]
[<语句组2>]
Loop格式二:
Do Until <条件>
[<语句组1>]
[Exit Do]
[<语句组2>]
Loop格式三:
Do
[<语句组1>]
[Exit Do]
[<语句组2>]
Loop While <条件>格式四:
Do
[<语句组1>]
[Exit Do]
[<语句组2>]
Loop Until<条件>null8: 循环要点 Private Sub Command1_Click()
N = Val(Text1.Text)
Sum = 0
i=1
While i<=100
Sum=Sum+i
i=i+1
Wend
Text2.Text = Sum
End Subnull9: 循环出口*判断一自然数其是否为素数(遍历法)。
Clear
a=Val(inputbox(“请输入一自然数:”))
For i=2 to a-1
iF a mod i=0 then
Exit For
Endif
Next
iF i>a-1 then
Print a,”是素数。”
Endif同一类题材,采用相同的程序结构10: 循环结构示例1(项操作)同一类题材,采用相同的程序结构示例:S=1+2+3+…+10
Sub Command1_click( )
S = 0
For n=1 to 10 step 1
K = n
S= S + K
Next
Print s
End sub Sub Command1_click( ) ’4
S = 0
For n=0 to 63 step 1
K = 2^n
S= S + K
Next
Print s
End sub Sub Command1_click( ) ’3
S = 0
For n=1 to 5 step 1
k=1
For i=1 to n
K = k * i
Next
S= S + K
Next
Print s
End sub null10: 循环结构示例2(行列输出)打印九九乘法表(两重循环).
For i = 1 To 9 ' 行
For j = 1 To 9 ‘ 列 一行的内容
Print i & "×" & j & "=" & i * j ;
Next j
Print ‘一行内容完后回车
Next i思考:打印下三角A或上三角B程序如何改动?ABnullFor i = 1 To 9 ' 行
For j = 1 To 9 ‘ 列
Print i & "×" & j & "=" & i * j ;
Next j
Print
Next i**********
**********
**********
**********
**********
**********
**********
**********
**********
**********
图1For i = 1 To 9 ' 行
For j = 1 To 9 ‘ 列
Print “*” ;
Next j
Print
Next i*
**
***
****
*****
******
*******
********
*********
**********
图2For i = 1 To 9 ' 行
For j = 1 To i ‘ 列
Print “*” ;
Next j
Print
Next inull*
**
***
****
*****
******
*******
********
*********
**********
图2*
***
*****
*******
*********
***********
*************
***************
*****************
*******************
图3*
***
*****
*******
*********
***********
*************
***************
图4For i = 1 To 9 ' 行
For j = 1 To i ‘ 列
Print “*” ;
Next j
Print
Next iFor i = 1 To 9
For j = 1 To 2*i-1
Print “*” ;
Next j
Print
Next iFor i = 1 To 9
For k =1 to 20-i
Print space(1);
Next k
For j = 1 To 2*i-1
Print “*” ;
Next j
Print
Next inull11: 循环结构示例3(遍历法)‘从键盘上输入一个正整数,输出它所有的约数。
Private Sub Command4_Click()
N = Val(InputBox("请输入一个正整数"))
For i = 1 To N
If N Mod i = 0 Then
Print i
End If
Next
End Subnull‘从键盘上输入两个正整数,输出它的最大公约数和最小公倍数。
Private Sub Command5_Click() ‘方法1
a = Val(InputBox("请输入一个正整数a"))
b = Val(InputBox("请输入一个正整数b"))
If a < b Then
t = a: a = b: b = t
End If
For i = 1 To b
If a Mod i = 0 And b Mod i = 0 Then
Max = i
End If
Next
Print "最大公约数:", Max
Print "最小公倍数:", a * b / Max
End Subnull1:求100~200之间的不能被3整除的数的和
2:从键盘上输入一个正整数,输出它所有的约数。
3:从键盘上输入两个正整数,输出它的最大公约数和最小公倍数。
4:从键盘上输入一个正整数,判断它是否为素数。
5:判断并输出1~100中的素数。
6:判断并输出100~1000中的水仙花数。null13: 循环结构示例4(最大最小值)‘随机产生10个100~200之间的数,求最大值、最小值。
Private Sub Command1_Click()
Max = 100 : Min=200 ‘[有固定范围]
For i = 1 To 10
x = Int(Rnd * 101 + 100)
Print x;
If x > Max Then Max = x
If x < Min Then Min = x
Next i
Print
Print “最大值=”; Max, “最小值="; Min
End Subnull‘从键盘上输入10个数,求它们中的最大、最小值、和。
Private Sub Command3_Click()
N = Val(InputBox("请输入一个数"))
Max = N ‘[没有固定范围]
Min = N
Sum = N
For i = 1 To 9
N = Val(InputBox("请输入一个数"))
Sum = Sum + N
If N > Max Then Max = N
If N < Min Then Min = N
Next
Print Max, Min, Sum
End Subnull14: 循环结构示例5(其它)例1 猴子吃桃子。小猴在某天摘桃若干个,当天吃掉一半多一个;第二天吃了剩下的桃子的一半多一个;以后每天都吃尚存桃子的一半多一个,到第7天要吃时只剩下一个,问小猴共摘下了多少个桃子?例2用辗转相除法求两自然数 m,n 的最大公约数和最小公倍数。例3打印输出斐波那契(Fibonacci)数列的前20项