医药信息技术基础实践指导答案作者晏峻峰.docx

《医药信息技术基础实践指导》 晏峻峰
练习答案

答案由“晓英振辉奇葩计算机”提供

（红色加粗是检索词，绿色是备注）
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/2023#
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 = ("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_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim y As Integer
y = Int(Rnd() * 100)
MsgBox(y)
End Sub

任意字符串测长度
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim y As String
Dim y1 As Integer
y = "VB程序设计语言"
y1 = Len(y)
MsgBox(y & "长度为" & y1)

End Sub

给出字符串查片段位置
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim y As Integer
y = InStr("abc student", "stu")
MsgBox(y)
End Sub

除去字符串两边空格
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim y As String
y = Trim(" Visual C ++ ")
MsgBox("清除左边空格" & y & "清除右边空格")
End Sub

测字符串所占字节数
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim y As String
Dim y1 As Integer
y = "VB程序设计语言"
y1 = Len(y) * 2 ‘字符串长度×2
MsgBox(y & " 字节数为" & y1)
End Sub

字符串反序排列
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim y, y1 As String
y = "我去资料室查资料"
y1 = StrReverse(y)
MsgBox(y1)
End Sub

从字符串中截取字符
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim y, y1 As String
y = "我去资料室查资料"
y1 = Mid(y, 3, 3) ‘左边数第三个，数三个
MsgBox(y1)

End Sub

截取字符
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim y, y1 As String
y = "我去资料室查资料"
y1 = Mid(y, 7, 2)
'y1 = (y, 2)
MsgBox(y1)
End Sub

在字符串中插入空格
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim y, y1 As String
y = "Thisisabook"
y1 = Mid(y, 1, 4) & Space(1) & Mid(y, 5, 2) & Space(1) & Mid(y, 7, 1) & Space(1) & Mid(y, 8)
MsgBox(y1)
End Sub

求字母ASCII码
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim y As Integer
y = Asc("Z")
MsgBox(y)
End Sub

计算日期间隔
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim y As Date
Dim y1, y2, y3 As Integer
y = "2023-1-1"
y1 = DateDiff(DateInterval.Month, y, Today())
y2 = DateDiff(DateInterval.WeekOfYear, y, Today())
y3 = DateDiff(DateInterval.Day, y, Today())
MsgBox(y1 & "个月" & y2 & "个星期" & y3 & "天")
End Sub

字符串转化为数值
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim y As String
Dim a As Integer
Dim y1 As Integer
y = "42897"
y1 = Val(y)
a = MsgBox(y1, vbOKCancel)
If vbOK = a Then
MsgBox(a)
End If
End Sub

变化数值旳输出形式（小数位数）
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim y As Single
y = 3287.153
MsgBox(Format(y, "000.00"))
End Sub

输出数据（每行四个，数据间隔四格，数值型00000.00，字符型@@@@@@@@，日期型dddddd
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Dim z1, z2, z3, z4 As Single
Dim z5, z6, z7 As String
Dim z8 As Date
z1 = 45.632
z2 = 8246.25
z3 = 123.8
z4 = 45627
z5 = "student"
z6 = "permanence"
z7 = "teachers"
z8 = #4/5/2023#
MsgBox(Format(z1, "00000.00") & " " & Format(z2, "00000.00") & " " & Format(z3, "00000.00") & " " & Format(z4, "00000.00") & vbCrLf & Format(z5, "{0,-8}") & " " & Format(z6, "{0,-8}") & " " & Format(z7, "{0,-8}") & " " & Format(z8, "d")) ‘换行
End Sub
End Class

If语句，select语句进行有条件旳计算，成绩排名，大小排序
Public Class Form1
数学公式计算格式，含平方根
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String, b As String, c As String
Dim x1 As Single, x2 As Single
a = InputBox("输入A", "输入数据Y", , 500, 500)
b = InputBox("输入B", "输入数据Y", , 500, 500)
c = InputBox("输入C", "输入数据Y", , 500, 500)
x1 = -b + Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / a
x2 = -b - Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / a
MsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###"))

End Sub
公式计算
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As Integer
Dim y As Integer
Dim z As Single
x = 5
y = 9
z = (x ^ 3 + x * y + y ^ 3) / (2 * x * y)
MsgBox("(x ^ 3 + x * y + y ^ 3) / (2 * x * y)=" & z)
End Sub
公式计算，含对数，绝对值
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim x As Single
Dim y As Single
x = InputBox("输入x")
y = Math.Log(20) + Math.Abs(x - 16)
MsgBox("Math.Log(20) + Math.Abs(x - 16)=" & y)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim x As Single
Dim y As Single
x = InputBox("输入x")
y = 0.231 * x + 1.36
MsgBox("0.231 * x + 1.36=" & y)
End Sub

公式计算，角度转换
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Const g As Single = 9.81
Dim v As Single, o As Single, t As Single, s As Single
v = InputBox("输入初速度")
o = InputBox("输入角度")
t = 2 * v * Math.Sin(o * Math.PI / 180) / g
s = v * Math.Sin(2 * o * Math.PI / 180) / g
MsgBox("落地所需时间" & t & " 落地时运动旳射程" & s)
End Sub
End Class

Public Class Form1
If语句，随机函数产生奇，偶数，
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer
x = Int(Rnd() * 100)
If x Mod 2 = 0 Then
MsgBox(x & "是偶数")
Else
MsgBox(x & "是奇数")
End If
End Sub
If语句找出a，b，c中最大最小数
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As Single, b As Single, c As Single, x As Single, y As Single
a = InputBox("请输入a")
b = InputBox("请输入b")
c = InputBox("请输入c")
If a > b Then
x = a
y = b
Else
x = b
y = a
End If

If c > a Then
x = c
Else
If c < b Then
y = c
End If
End If
MsgBox("最大数" & x & " 最小数" & y)
End Sub
If 语句进行有条件旳计算
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim t As Single, f As Single
t = InputBox("请输入t")
If t < 120 Then
f = 0.06 * t + 2
MsgBox("f = 0.06 * t + 2=" & f)
Else
f = 0.06 * t * 0.85
MsgBox("f = 0.06 * t * 0.85=" & f)
End If

End Sub
If语句排成绩等级
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim x As Single
Dim y As String
x = InputBox("请输入成绩")
If x >= 90 Then
y = "A"
ElseIf x >= 80 Then
y = "B"
ElseIf x >= 70 Then
y = "C"
ElseIf x >= 60 Then
y = "D"
Else
y = "E"
End If
MsgBox("成绩" & x & "等级为" & y)
End Sub
Select语句进行有条件旳计算
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim x As Single, y As Single

x = InputBox("请输入x")
Select Case x
Case Is <= -1
y = x - 1
Case Is <= 2
y = 2 * x
Case Is <= 10
y = x * (x + 2)
Case Else
y = 0
End Select
MsgBox("y=" & y)
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim a As String, b As String, c As String
Dim x1 As Single, x2 As Single, x As Single
a = InputBox("输入A", "输入数据Y", , 500, 500)
b = InputBox("输入B", "输入数据Y", , 500, 500)
c = InputBox("输入C", "输入数据Y", , 500, 500)
x = b ^ 2 - 4 * a * c
If x >= 0 Then
x1 = -b + Math.Sqrt(x) / 2 / a
x2 = -b - Math.Sqrt(x) / 2 / a
MsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###"))
Else
x1 = Math.Sqrt(-x) / 2 / a
x2 = -Math.Sqrt(-x) / 2 / a
MsgBox("x1=" & -b / 2 / a & x1 & "i x2=" & -b / 2 / a & x2 & "i")
End If
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim x As Single, y As Single
x = InputBox("请输入x")

If x <= -1 Then
y = x - 1
ElseIf x <= 2 Then
y = 2 * x
ElseIf x <= 10 Then
y = x * (x + 2)
End If
MsgBox("y=" & y)
End Sub
End Class

1. 计算1/(1*2)+1/(2*3)+...+1/(n*n+1)
Public Class Form1
Dim a(19) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim n As Integer
Dim s As Single
s = 0
n = InputBox("请输入n")
For i = 1 To n
s = s + 1 / (i * (i + 1))
Next
MsgBox("s=" & s)
End Sub

2. 10个元素旳数据，计算下标为奇数旳元素和为偶数旳元素和
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a(10) As Integer
Dim i As Integer
Dim x As Integer
Dim y As Integer
x = 0
y = 0
For i = 1 To 10
InputBox("请输入第" & i & "个数")
If i Mod 2 = 0 Then
x = x + a(i)
Else
y = y + a(i)
End If
Next
MsgBox("下标为奇数旳元素和为" & y & "下标为偶数旳元素和为" & x)
End Sub

3. 正三角*
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim r As Integer, s As Integer, c As Integer, y(5) As String, j As Integer, ys As String
ys = ""
r = 1
Do While r <= 4
c = 10 - r : s = 1
y(r) = y(r) & Space(c + s)
Do While s <= 2 * r - 1
y(r) = y(r) & "*"
s = s + 1
Loop
r = r + 1
Loop
For j = 1 To 4
ys = ys & y(j) & Chr(10)
Next
MsgBox(ys)
End Sub

4. 倒三角*
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim r As Integer, s As Integer, c As Integer, y(5) As String, ys As String
ys = ""
r = 4
Do While r >= 1
c = 10 - r : s = 1
ys = ys & Space(c + s)
Do While s <= 2 * r - 1
ys = ys & "*"
s = s + 1
Loop
r = r - 1
ys = ys & Chr(10)
Loop
MsgBox(ys)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

End Sub

5. 随机函数产生0-100间正整数，记录50万元以上旳人数
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Dim s As String
Dim i As Integer
Dim x As Integer
Dim y As Integer
x = 0
y = 0
s = ""

For i = 0 To 19
a(i) = Int(Rnd() * 100)
s = s & a(i) & ","

If a(i) > 50 Then
x = x + 1
ElseIf a(i) < 10 Then
y = y + 1
End If
Next
MsgBox(s &