《医药信息技术基础实践指导》答案(作者晏峻峰).docxVIP

《医药信息技术基础实践指导》作者：晏峻峰 练习答案 答案由“晓英振辉奇葩计算机”提供 （红色加粗是检索词，绿色是备注） Public Class Form1 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim var1 As Integer, var2 As String var1 = 12345 var2 = InputBox(输入Var2=, 输入对话框) MsgBox(var2 Chr(13) + Chr(10) var1= Str(var1)) MsgBox(var2 vbCrLf var1= Str(var1)) End Sub End Class 定义不同变量 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Short ‘短型 Dim b As Single ‘单精度 Dim c As Integer ‘整型 Dim d As Date Dim e1 As String Dim f As Boolean ‘判断 Dim g As String Dim h As Double ‘双精度 Dim i As Single Dim j(4, 3) As Integer a = 3.25 b = 546.2 c = 5383149 d = #12/31/2003# e1 = ABCDEF f = False g = 123456 h = 3.24E+100 i = 1.2563E+15 j(0, 0) = 456 MsgBox(a vbCrLf b vbCrLf c vbCrLf d vbCrLf e1 vbCrLf f vbCrLf g vbCrLf h vbCrLf i vbCrLf j(0, 0)) End Sub 分析不同表达式，定义并输出结果 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim x21, x22, x23, x24 As Single Dim x25, x27, x28 As Boolean Dim x26 As String x21 = Sqrt(3 ^ 2 / (2 * 4)) ‘开方 x22 = +Abs(0.123 - 3) ‘绝对值 x23 = -Sin(30) x24 = Exp(6) + Log(2.135) ‘e的6次方 x25 = 89 12 8912 x26 = AB + Str(32.56) + CD x27 = Mid(student, 5) = ent And (5 2) ‘右边数三位 x27 = Microsoft.VisualBasic.Right(student, 3) = ent And (5 2) x28 = Not (6 2) Or (7 9) MsgBox(x21 vbCrLf x22 vbCrLf x23 vbCrLf x24 vbCrLf x25 vbCrLf x26 vbCrLf x27 vbCrLf x28) End Sub 一百以内随机数 Private Sub Button3