在線评测试题目格式_新.docVIP

  • 28
  • 0
  • 约2.45万字
  • 约 35页
  • 2016-12-08 发布于重庆
  • 举报
在線评测试题目格式_新

第五章 数据输入/输出 文件名:CH0507 输入a=5,b=2.5,c=7.8,编程计算: 将计算结果输出在窗体上。 数据描述:变量为变体类型 工程描述: 在“Command1”按钮单击事件中编程实现,输入用InputBox函数,输出用Print方法。新建Form1窗体,将窗体保存为CH0507.FRM,工程保存为CH0507.VBP,提交作业时仅将这两个文件上传。 Private Sub Command1_Click() Dim a As Variant Dim b As Variant Dim c As Variant Dim y As Variant a = Val(InputBox(请输入a的值)) b = Val(InputBox(请输入b的值)) c = Val(InputBox(请输入c的值)) Pi = 3.14159 y = a * b * Pi / (a + b * c) Print y End Sub 输入: 5 2.5 7.8 输出: 1.60285204081633 文件名:CH0508 设计一个时间转换程序实现转换Private Sub Command1_Click() Dim x As Single x = Val(InputBox(请输入一个以秒为单位表示的时间)) neo = x Mod 60 ten = (x \ 60) Mod

文档评论(0)

1亿VIP精品文档

相关文档