16.在VB.NET中，如果保留动态数组元素原来的值，在关键字Redim后加_____参数。

Redim Preserve Arr(10,n)

成都创新互联是一家专注于成都网站设计、成都网站制作与策划设计,嘉祥网站建设哪家好?成都创新互联做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:嘉祥等地区。嘉祥做网站价格咨询:18982081108

通过Preserve关键字定义的动态数组，可以更改数组arr最末维的大小，且保留数组arr原来各个元素的值。

所以答案为：C

例如：

Dim arr()

Redim arr(1 to 1,1 to 2)

arr(1,2) = "你好"

Redim Preserve arr(1 to 1, 1 to 3)

msgbox arr(1,2) '这个时候依然可以得到arr(1,2)的值为“你好”。

而且从答案来看，Redim只可能与Preserve联合使用。其他都无法编译！

求VB实验39的答案啊！！！

上网收费：'Option Explicit

Dim t As Integer, f As Single, x As String

Private Sub Form_Load()

Text1.Text = ""

Label2 = ""

End Sub

Private Sub Command1_Click()

If Text1.Text = "" Then

Text1.SetFocus

MsgBox "请输入上网时间"

Exit Sub

End If

t = Val(Text1.Text)

If t 120 Then

f = 0.06 * t + 2

Else

f = 0.06 * t * 0.85

End If

x = Str$(f) + "元"

Label2.Caption = x

Text1.SetFocus

End Sub

三角函数：Private Sub Form_Load()

Text1.Text = ""

Label7.Caption = ""

End Sub

Private Sub Command1_Click()

Dim a, b As Double

Dim c As String

' Form2.Cls

If Text1.Text = "" Then

Text1.SetFocus

MsgBox "请输入计算数据"

Exit Sub

End If

If Option4.Value = True Then

b = Val(Text1.Text) * 3.14 / 180

ElseIf Option5.Value = True Then

b = Val(Text1.Text)

End If

If Option1.Value = True Then

a = Sin(b)

c = "sin(" Text1.Text ")="

ElseIf Option2.Value = True Then

a = Cos(b)

c = "Cos(" Text1.Text ")="

ElseIf Option3.Value = True Then

a = Tan(b)

c = "Tan(" Text1.Text ")="

End If

a = Round(a, 6)

a = Format(a, "0.##########")

'If Left(a, 1) = "." Then

' a = "0" a

'ElseIf Left(a, 2) = "-." Then

' a = "-0" Right(a, Len(a) - 1)

'End If

Label7.Caption = c a

End Sub

打印几何图形：Private Sub Form_Load()

Picture1.FontSize = 16

End Sub

Private Sub Image1_Click()

Picture1.CurrentX = 0

Picture1.CurrentY = 0

For i = 0 To 5

Picture1.Print Tab(8 - i);

For j = 1 To 2 * i + 1

Picture1.Print "*";

Next j

Print

Next i

End Sub

Private Sub Image2_Click()

Picture1.CurrentX = 0

Picture1.CurrentY = 0

For i = 0 To 5

Picture1.Print Tab(12 + i);

For j = 1 To 6

Picture1.Print "*";

Next j

Print

Next i

End Sub

计算矩形周长面积：

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Label3.Caption = ""

End Sub

Private Sub Command1_Click()

If Text1.Text = "" Then

Text1.SetFocus

MsgBox "请输入矩形的长"

Exit Sub

End If

If Text2.Text = "" Then

Text2.SetFocus

MsgBox "请输入矩形的宽"

Exit Sub

End If

If Option1.Value = False And Option2.Value = False Then

MsgBox "请选择计算类型"

Exit Sub

End If

s = Val(Text1.Text) * Val(Text2.Text)

l = 2 * (Val(Text1.Text) + Val(Text2.Text))

If Option1 = True Then

Label3.Caption = Str(s)

ElseIf Option2 = True Then

Label3.Caption = Str(l)

End If

End Sub

Private Sub Command2_Click()

Label3.Caption = ""

End Sub

Private Sub Command3_Click()

End

End Sub

计算器：Dim jsff

Dim f_num As Single

Private Sub Form_Load()

f_num = 0

jsff = ""

Text1.Text = ""

End Sub

Private Sub js()

Select Case jsff

Case "+"

f_num = f_num + Val(Text1.Text)

Case "-"

f_num = f_num - Text1.Text

Case "*"

f_num = f_num * Text1.Text

Case "/"

f_num = f_num / Text1.Text

Case "/"

f_num = f_num / Text1.Text

End Select

End Sub

Sub Command1_Click() '+

If Text1.Text = "" Then

Text1.SetFocus

Exit Sub

End If

If jsff = "" Then

f_num = Val(Text1.Text)

Else

js

End If

jsff = "+"

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

If Text1.Text = "" Then

Text1.SetFocus

Exit Sub

End If

If jsff = "" Then

f_num = Val(Text1.Text)

Else

js

End If

jsff = "-"

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

If Text1.Text = "" Then

Exit Sub

End If

If jsff = "" Then

f_num = Val(Text1.Text)

Else

js

End If

jsff = "*"

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command4_Click()

If Text1.Text = "" Then

Exit Sub

End If

If jsff = "" Then

f_num = Val(Text1.Text)

Else

js

End If

jsff = "/"

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command6_Click()

If Text1.Text = "" Then

Text1.SetFocus

Exit Sub

End If

x = Round(Sin(Val(Text1.Text)), 4)

If Left(x, 2) = "-." Then

x = "-0" Right(x, Len(x) - 1)

ElseIf Left(x, 1) = "." Then

x = "0" x

End If

Text1.Text = x

End Sub

Private Sub Command7_Click()

If Text1.Text = "" Then

Text1.SetFocus

Exit Sub

End If

x = Format(Round(Cos(Val(Text1.Text)), 4), "0.##########")

Text1.Text = x

End Sub

Private Sub Command8_Click()

If Val(Text1.Text) 0 Then

MsgBox "请不要对负数做开方运算"

Text1.SetFocus

Exit Sub

End If

x = Sqr(Val(Text1.Text))

If Left(x, 1) = "." Then x = "0" x

Text1.Text = x

End Sub

Private Sub Command9_Click()

If Text1.Text = 0 Then

MsgBox "请不要对0做倒数运算"

Text1.SetFocus

Exit Sub

End If

x = Val(1 / Text1.Text)

If Left(x, 2) = "-." Then

x = "-0" Right(x, Len(x) - 1)

ElseIf Left(x, 1) = "." Then

x = "0" x

End If

Text1.Text = x

End Sub

Private Sub Command5_Click()

If Text1.Text = "" And jsff = "" Then

Text1.SetFocus

Exit Sub

End If

If Text1.Text = "" And jsff = "+" Then

MsgBox "请输入加数"

Text1.SetFocus

Exit Sub

ElseIf Text1.Text = "" And jsff = "-" Then

MsgBox "请输入减数"

Text1.SetFocus

Exit Sub

ElseIf Text1.Text = "" And jsff = "*" Then

MsgBox "请输入乘数"

Text1.SetFocus

Exit Sub

ElseIf Text1.Text = "" And jsff = "/" Then

MsgBox "请输入除数"

Text1.SetFocus

Exit Sub

ElseIf Text1.Text = 0 And jsff = "/" Then

MsgBox "请不要用0做除数"

Text1.SetFocus

Exit Sub

End If

js

x = f_num

If Left(x, 2) = "-." Then

x = "-0" Right(x, Len(x) - 1)

ElseIf Left(x, 1) = "." Then

x = "0" x

End If

Text1.Text = x

jsff = ""

f_num = 0

End Sub

Private Sub Command10_Click()

Text1.Text = ""

f_num = 0

jsff = ""

Text1.SetFocus

End Sub

Private Sub Text1_Change()

End Sub

检查体重：

'Option Explicit

Dim bz

Private Sub Form_Load()

bz = 0

End Sub

Private Sub Command1_Click()

If Text1.Text = "" Then

Text1.SetFocus

MsgBox "请输入身高"

Exit Sub

End If

If Text2.Text = "" Then

Text2.SetFocus

MsgBox "请输入体重"

Exit Sub

End If

If Option1.Value = False And Option2.Value = False Then

MsgBox "请选择被检测者性别"

Exit Sub

End If

If Option1 = True Then

x = Val(Text1.Text) - 100

ElseIf Option2 = True Then

x = Val(Text1.Text) - 105

End If

If Val(Text2.Text) x Then

Label3.Caption = "体重超标"

Timer1.Enabled = True

Else

Label3.Caption = "体重正常"

Image2.Picture = Image1.Picture

End If

End Sub

Private Sub Timer1_Timer()

If bz = 1 Then

Image2.Picture = Image1.Picture

bz = 0

ElseIf bz = 0 Then

Image2.Picture = Image3.Picture

bz = 1

End If

End Sub

Private Sub Command2_Click()

Label3.Caption = ""

Timer1.Enabled = False

Image2.Picture = Image3.Picture

End Sub

Private Sub Command3_Click()

End

End Sub

小广告：Dim bz

Private Sub Form_Load()

bz = 0

End Sub

Private Sub Command1_Click()

Label1.Visible = True

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If Label1.Left 0 Then

Label1.Left = 6000

Else

Label1.Left = Label1.Left - 150

End If

If bz = 1 Then

Image3.Picture = Image1.Picture

bz = 0

ElseIf bz = 0 Then

Image3.Picture = Image2.Picture

bz = 1

End If

End Sub

诊断处方：Private Sub Form_Load()

Combo1.AddItem "轻微红肿"

Combo1.AddItem "肿痛"

Combo1.AddItem "化脓"

Combo1.Text = Combo1.List(0) '设置combo1的默认选择

Combo2.AddItem "轻度"

Combo2.AddItem "中度"

Combo2.AddItem "重度"

Combo2.AddItem "剧烈"

Combo2.AddItem "尖锐"

Combo2.Text = Combo2.List(0) '设置combo2的默认选择

Combo3.AddItem "36度"

Combo3.AddItem "37度"

Combo3.AddItem "38度"

Combo3.AddItem "39度"

Combo3.AddItem "40度"

Combo3.Text = Combo3.List(0) '设置combo3的默认选择

Combo4.AddItem "干咳"

Combo4.AddItem "有痰"

Combo4.AddItem "早起咳"

Combo4.Text = Combo4.List(0) '设置combo4的默认选择

List1.AddItem "咽炎方" '设置列表框的可选项目

List1.AddItem "阿司匹林"

List1.AddItem "青霉素针剂"

List1.AddItem "感冒通"

List1.AddItem "维生素B"

List1.AddItem "维生素C"

List1.AddItem "喉片"

List1.Text = List1.List(0)

End Sub

Private Sub List1_DblClick()

List2.AddItem List1.Text

End Sub

Private Sub List2_DblClick()

List2.RemoveItem List2.ListIndex

End Sub

Private Sub Command1_Click()

Var$ = Combo1.Text + Combo2.Text + Combo3.Text + Combo4.Text

Select Case Var$

Case Is = "肿痛轻度38度干咳"

Text1.Text = "咽炎"

Case Is = "化脓中度39度早起咳"

Text1.Text = "扁桃体发炎"

Case Is = "化脓重度40度有痰"

Text1.Text = "肺炎"

Case Else

Text1.Text = "重选"

End Select

End Sub

Private Sub Command3_Click()

For i = 0 To List2.ListCount - 1

If i = List2.ListCount Then

Exit Sub

ElseIf List2.Selected(i) Then

List2.RemoveItem i

i = -1

End If

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

VB.net的开方运算

VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。

请你比较一下这个运算中x和y的值：

Dim n As Single = 4

Dim x As Single

Dim y As Single

x = n + 1

x = x / n

x = x - 1

x = Math.Sqrt(x)

y = Math.Sqrt((n + 1) / n - 1)

这样就会发现，你的代码中括号的位置错了。

正确的应该是： Math.Sqrt((n + 1) / n - 1)

大学计算机应用基础实验指导课后填空题……（求答案，只是来打不知道的请回避……）

1.在安全模式下用户可以轻松地修复系统的一些错误，起到事半功倍的效果。启动计算机，必须在系统显示windows启动画面前，按f8键，就可以进入计算机的安全模式。

2.bois是一个用于修改cmos ram参数程序。启动计算机时，按del键可以进入bios程序菜单，修改cmos参数。

3.windows XP操作系统是用于运行和管理整个计算机的软硬资源的系统软件，属于多用户多任务的操作系统。

4.决定微机整体性能的物理部件有主板、内存、显卡、处理器，除了这些部件以外，主板芯片组部件决定着整个机器的稳定性。

5.目前，计算机上配置的显卡分为集成显卡和独立显卡，其中独立显卡性能更好。

6.说出5种使用USB接口的微机常用设备键盘、鼠标、打印机、扫描仪、u盘

7.预防病毒的主要措施有：－－。－－。－－。－－。－－

8.目前，计算机上的内存类型是sdram、ddr ram和rddam一般来说，内存越大，数据处理能力越强。

9.复制当前窗口，必须先按住alt键，然后按住print键。复制整个屏幕需要按住print键

10.正常情况下，启动计算机都是从c盘启动的，需要从光盘启动的计算机必须要进行bios设置

本文标题：关于vb.net实验指导答案的信息
链接地址：http://ybzwz.com/article/dopeipc.html