编一应用程序根据上网时间计算上网费用，计算方法如下： 25元基数 ≤10小时 每小时2元 10<且≤50小时 每小

华理的吧 '后面是注释

Dim m#, f# '定义变量m(上网时间),f(上网费用)属性为双精度浮点型数据

Private Sub Command1_Click()

m = InputBox("输入上网时间")

f = 25

If Not IsNumeric(m) Or m <= 0 Then Exit Sub '上网时间小于0或输入非数字型数据 推出计算

If Int(m) <> m Then

m = Int(m) + 1 '若上网时间不足一小时 按一小时计算

End If

Select Case m 'm结构循环 对不同上网时间收取不同费用

Case 0 To 10

f = 25

Case 10 To 50

f = 25 + (m - 10) 2

Case 50 To 100

f = 105 + (m - 50) 15

Case Is > 100

f = 180 + (m - 100)

End Select

f = MsgBox("上网费用为" & f, vbOKOnly) 'msgbox输出上网时间

End Sub

Private Sub Command2_Click()

End '结束程序运行

End Sub

网络工程主要学：数字通信、计算机系统平台、网络系统开发与设计、软件开发、网络安全、网络管理等知识领域的基本内容。学科基础类课程包括学科的基础内容，能体现数学和自然科学在该专业中应用能力的培养；专业类课程、实践环节能够体现系统设计和实现能力的培养。人文社会科学类教育能够使学生在从事工程设计时考虑经济、环境、法律、伦理等各种制约因素。数学和自然科学类教育能够使学生掌握理论和实验方法，为学生表述工程问题、选择恰当数学模型、进行分析推理奠定基础。网络工程的就业方向：网络工程专业可以在各类IT企业、公司、科研院所等从事计算机网络系统的产品分析、设计、研究、开发及IT市场拓展、技术推广等工作。能到各级财政、工商、税务、邮政、电信、移动、国防、交通以及各类企事业单位从事网络安全维护、计算机检测与控制、计算机网络系统的规划、设计、开发、集成与运行维护等工作；能从事各级各类学校的计算机网络系统教育、网络系统应用开发、远程教育及网络维护管理等工作。

以上就是关于编一应用程序根据上网时间计算上网费用，计算方法如下： 25元基数 ≤10小时 每小时2元 10<且≤50小时 每小全部的内容，包括:编一应用程序根据上网时间计算上网费用，计算方法如下： 25元基数 ≤10小时 每小时2元 10<且≤50小时 每小、请问计算机网络工程有哪些、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！