您的位置： 文档网所有分类高等教育理学 第12周vba编程答案

第12周vba编程答案

答案

第一题答案：

Option Compare Database

Option Explicit

Public Function 分票fun(intType As Integer) '注意程序的书写规范，有适当的注释，有适当的空行，该缩进的行要缩进

Dim intGuolpiaoj As Integer, intGuowaipiaoj As Integer

intGuolpiaoj = 10

intGuowaipiaoj = 20

Select Case intType

Case 1

MsgBox "国内每人" & intGuolpiaoj & "元", , "你是普通国内游客,祝游览愉快！"

Case 2

MsgBox "国外每人" & intGuowaipiaoj & "元", , "欢迎到中国来，祝游览愉快！" Case 3

intGuolpiaoj = intGuolpiaoj / 2

MsgBox "学生票半价:" & intGuolpiaoj & "元", , "游览可以增加阅历，回家写作文！"

Case 4, 5, 6

MsgBox "军人、儿童、老人免票"

Case Else

MsgBox "你是什么人！"

End Select

End Function

Public Sub 分票sub()

Dim intTicketType As Integer

intTicketType = Val(InputBox("请输入票的类型：国内请输入1；国外请输入2；持学生证请输入3；军人请输入4、老人请输入5、儿童请输入6。", "提示输入"))

分票fun (intTicketType)

End Sub

第二题答案：

Option Compare Database

Option Explicit

Rem 题目：计算1-10之间所有自然数之积，即10！

Public Sub 求n的阶乘(): Rem 该程序运行时，当输入的数据大于等于８时，程序会出错；请修改该程序，使它能计算100以内的阶乘

Dim n As Integer, k As Double, i As Integer

第1页

你可能喜欢

  • VB程序设计
  • VBA程序设计
  • Excel教程
  • Excel使用技巧大全(超
  • 开发指南
  • GIS开发
  • VBA语法

第12周vba编程答案的相关文档搜索

第12周vba编程答案相关文档

最新文档

返回顶部