VB实验题答案

实验一

Private Sub Command1_Click()

Text2.FontSize = Text2.FontSize * 2

End Sub

Private Sub Command2_Click()

Text2.FontSize = Text2.FontSize / 2

End Sub

Private Sub Command3_Click()

If Text2.FontSize = Text2.FontSize * 2 Then Text2.FontSize = Text2.FontSize / 2

Else

If Text2.FontSize = Text2.FontSize / 2 Then

Text2.FontSize = Text2.FontSize * 2

End If

End If

End Sub

Private Sub Command4_Click()

Text1.Text = ""

End Sub

Private Sub Form_Click()

If Text1 >= "a" And Text1 <= "z" Then

Text1 = "输入错误，请使用大写字母！" Else

If Text1 >= "A" And Text1 <= "Z" Then

Text1 = "输入正确！"

End If

End If

End Sub

Private Sub 清零_Click()

End Sub

实验二（1）

Private Sub Command1_Click()

Dim a%, b%, c%, s%, c1%

a = V al(Text1.Text)

b = V al(Text2.Text)

c = V al(Text3.Text)

s = 1 / 2 * (a + b + c)

c1 = a + b + c

Text4.Text = c1

If a >= s Or b >= s Or c >= s Then

Text4.Text = "不能构成三角形"

End If

End Sub

Private Sub Command2_Click()

Dim a%, b%, c%, s%, area&

a = V al(Text1.Text)

b = V al(Text2.Text)

c = Val(Text3.Text)

s = 1 / 2 * (a + b + c)

area = Sqr(s * (s - a) * (s - b) * (s - c))

Text4.Text = area

If a >= s Or b >= s Or c >= s Then

Text4.Text = "不能构成三角形"

End If

End Sub

实验二（2）

Private Sub Command1_Click()

Dim r%, h%, v#, π!

r = Val(Text1.Text)

h = V al(Text2.Text)

π= 3.1416

v = π* r ^ 2 * h

Text3.Text = v

End Sub

Private Sub Command2_Click()

Dim r%, s!, π!

r = Val(Text1.Text)

π= 3.1416

s = 4 * π* r

Text3.Text = s

End Sub

Private Sub Command3_Click()

Dim a!, b!, h!, v#

a = V al(Text4.Text)

b = V al(Text5.Text)

h = V al(Text6.Text)

v = a * b * h

Text7.Text = v

End Sub

实验二（3）

Private Sub Command1_Click()

Dim F!, C!

F = Val(Text1.Text)

C = 5 / 9 * (F - 32)

Text2.Text = C

End Sub

实验二（4）

Private Sub Command1_Click()

Dim a!, b!, c!, x1!, x2!, k!

a = V al(Text1.Text)

b = V al(Text2.Text)

c = V al(Text3.Text)

k = b ^ 2 - 4 * a * c

If k = 0 Then

Text4.Text = Text5.Text = -b / (2 * a) ElseIf k > 0 Then

Text4.Text = (-b + Sqr(k) / (2 * a))

Text5.Text = (-b - Sqr(k) / (2 * a)) ElseIf k < 0 Then

Text4.Text = -b / (2 * a)

Text5.Text = Sqr(-k) / (2 * a)

End If

End Sub

实验三（1）

Private Sub Command1_Click()

Dim x!, y!

x = V al(Text1.Text)

y = Val(Text2.Text)

If x < 1 Then

y = x

Else

If x >= 1 And x < 10 Then

y = 2 * x - 1

Else

y = 3 * x - 11

End If

End If

Text2 = y

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

实验三（2）

Private Sub Command1_Click()

Dim grade!

grade = Text1.Text

If grade >= 90 Then

Text2.Text = "A"

ElseIf grade >= 80 Then

Text2.Text = "B"

ElseIf grade >= 70 Then

Text2.Text = "C"

ElseIf grade >= 60 Then

Text2.Text = "D"

Else

Text2.Text = "不及格"

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

实验三（3）

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Label2_Click()

Dim fact%, n%, i%

n = Val(Text1.Text)

fact = 1

For i = 1 To n

fact = fact * i

Next i

Text2.Text = fact

End Sub

实验三（4）

Private Sub Command1_Click()

Dim i%, sum%

sum = 0

For i = 0 To 100 Step 2

sum = sum + i

Next i

Text1.Text = sum

End Sub

实验三（5）

Private Sub Command1_Click()

Dim str$, strTmp$, m%, n%, x%, y%, z%, w% x = 0

y = 0

z = 0

w = 0

str = Text1.Text

n = Len(str)

For m = 1 To n

strTmp = UCase(Mid(str, m, 1))

If IsNumeric(strTmp) Then

x = x + 1

ElseIf Asc(strTmp) > 64 And Asc(strTmp) < 91 Then y = y + 1

ElseIf strTmp = " " Then

z = z + 1

Else

w = w + 1

End If

Next m

Text2.Text = y

Text3.Text = z

Text4.Text = x

Text5.Text = w

End Sub

实验三（6）

Private Sub Command1_Click()

Dim m%, i%, k%, sum%, count%

count = 0

sum = 0

For m = 2 To 100

k = Sqr(m + 1)

For i = 2 To k

If (m Mod i) = 0 Then Exit For

Next i

If i >= k + 1 Then

Picture1.Print m;

count = count + 1

If (count Mod 5) = 0 Then Picture1.Print

End If

sum = sum + m

Next m

Picture1.Print "sum="; sum

End Sub

实验三（7）

Private Sub Form_Load()

For a = 0 To 9

For b = 0 To 9

For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a

End If

Next c

Next b

Next a

End Sub

实验三（8）

Private Sub Command1_Click()

Dim i%, fact#, sum#

sum = 0

fact = 1

For i = 1 To 20

fact = fact * i

sum = sum + fact

Next i

Text1.Text = sum

End Sub

实验三（9）

Private Sub Command1_Click()

Dim sign%, i!, sum#, y#, trem#

sign = 1

sum = 1#

For i = 3 To 20

i = i + 2

sign = -1 * sign

term = sign / i

sum = sum + term

If term <= 0.000001 Then Exit For

Next i

y = 4 * sum

Text1.Text = y

End Sub

实验四（4）

Dim a(3, 2) As Integer, b(2, 3) As Integer

Private Sub Command1_Click()

Picture1.Cls: Picture2.Cls: Picture3.Cls

For n = 1 To 3

For m = 1 To 2

x = Int(Rnd * 100): a(n, m) = Val(x) Next

Next

Picture1.CurrentY = 80

For n = 1 To 3

For m = 1 To 2

Picture1.Print Format(a(n, m), "@@@@");

Next

Picture1.Print

Next

For k = 1 To 2

For w = 1 To 3

x = Int(Rnd * 100): b(k, w) = Val(x)

Next

Next

Picture2.CurrentY = 80

For k = 1 To 2

For w = 1 To 3

Picture2.Print Format(b(k, w), "@@@@");

Next

Picture2.Print

Next

End Sub

Private Sub Command2_Click()

Dim c(3, 2) As Integer

For i = 1 To 3

For j = 1 To 2

c(i, j) = a(i, j) * b(j, i)

Next

Next

Picture3.Cls

Picture3.CurrentY = 200

For n = 1 To 3

For m = 1 To 2

Picture3.Print Format(c(n, m), "@@@@@@");

Next

Picture3.Print

Next

End Sub

实验四（6）

Private Sub Command1_Click()

Dim i%, j%, s$(1 To 26), t$

For i = 1 To 26

s(i) = Chr(i + 64)

Next

Randomize For i = 1 To 15

j = Int(Rnd * (26 - i + 1) + i)

t = s(i): s(i) = s(j): s(j) = t

Print s(i);

Next

End Sub

实验五（1）

Public Sub max(a As Integer, b As Integer, c As Integer)

Dim t As Integer

If b <= a And c <= a Then

t = a

ElseIf a <= b And c <= b Then

t = b

ElseIf a <= c And b <= c Then

t = c

End If

Picture1.Print ; t

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Call max(a, b, c)

End Sub

实验五（2）

Private Sub Command1_Click()

Dim A(10) As Integer, i As Integer, Min As Integer

For i = 1 To 10

A(i) = Int((101) * Rnd + 300)

Next i

Min = A(1)

For i = 2 To 10

If A(i) < Min Then Min = A(i)

Next i

Print "最小值：" & Min

Print "数组："

For i = 1 To 10

Print A(i);

Next i

Print

End Sub

实验五（3）

Private Sub Command1_Click()

Dim n%, i%

n = Val(InputBox("请输入数据n(0

For i = 1 To n

Print fibo(i),

If i Mod 5 = 0 Then Print

Next i

End Sub

Private Function fibo(x%)

If x = 1 Or x = 2 Then

fibo = 1

Else

fibo = fibo(x - 1) + fibo(x - 2)

End If

End Function

实验五（4）

Private Sub Command1_Click()

Dim A(10) As Integer, i As Integer, Max As Integer, Min As Integer, s As Integer, Ave As Integer

For i = 1 To 10

A(i) = Int(101 * Rnd)

Next i

Max = A(1): Min = A(1): s = A(1)

For i = 2 To 10

If A(i) > Max Then Max = A(i)

If A(i) < Min Then Min = A(i)

s = s + A(i)

Next i

Ave = s / 10

Print "最大值：" & Max

Print "最小值：" & Min

Print "平均值：" & Ave

Print "数组："

For i = 1 To 10

Print A(i);

Next i

Print

End Sub

实验六（1）

Private Sub Check6_Click()

If Check6.Value = 0 Then

Check7.Enabled = False: Check8.Enabled = False

Check7.Value = 2: Check8.Value = 2

Else

Check7.Enabled = True: Check8.Enabled = True

End If

End Sub

Private Sub Command1_Click()

Dim s$, h$, a$, b$, c$, u$, r$, x$, w$, d$, t$

If Option1 = True Then

s = "男"

ElseIf Option2 = True Then

s = "女"

End If

If Check1.Value = 1 Then

h = "身体健康"

Else: h = "身体不健康"

End If

If Check2.Value = 1 Then

u = "唱歌"

Else: u = " "

End If

If Check3.Value = 1 Then

d = "跳舞"

Else: d = " "

End If

If Check4.Value = 1 Then

r = "读书"

Else: r = " "

End If

If Check5.Value = 1 Then

t = "运动"

Else: t = " "

End If

If Check7.Value = 1 Then

x = "象棋"

Else: x = ""

End If

If Check8.Value = 1 Then

w = "围棋"

Else: w = ""

End If

a = Text1.Text & ";" & "性别" & s & ";" & Text2.Text & "出生;" & "" & "籍贯" & Text3.Text & "，" & Combo1.Text & "，"

b = Combo2.Text & "，" & Label7.Caption & "岁" & "，" & h & "，"

c = Combo3.Text & "，" & "工资" & Text4.Text & "元" & "，" & "爱好：" & u & r &

d & t & x & w

Text5.Text = a & b & c

End Sub

Private Sub HScroll1_Change()

Label7.Caption = Str(HScroll1.Value)

End Sub

实验六（2）

Private Sub List1_DblClick()

List2.AddItem List1.Text

List1.RemoveItem List1.ListIndex

End Sub

Private Sub List2_DblClick()

List1.AddItem List2.Text

List2.RemoveItem List2.ListIndex

End Sub

实验六（3）

Private a(10) As String, i As Integer

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

a(1) = "第一章Visual Basic 程序设计概述"

a(2) = "第二章Visual Basic 语言基础"

a(3) = "第三章基本控制结构"

a(4) = "第四章数组"

a(5) = "第五章过程"

a(6) = "第六章常用控件"

a(7) = "第七章界面设计"

a(8) = "第八章文件系统处理"

a(9) = "第九章图形操作"

a(10) = "第十章数据库技术"

End Sub Private Sub Timer1_Timer()

i = i + 1

Label1.Caption = a(i)

Label1.FontSize = 20: Label1.FontBold = True: Label1.FontItalic = True

If i >= 10 Then

i = i - 10

End If

End Sub

实验六（4）

Private Sub Command1_Click()

Form1.Hide

Form2.Show

Form2.Text1.Text = ""

Form2.Text2.Text = ""

Form2.Text3.Text = ""

Form2.Text4.Text = ""

Form2.Text5.Text = ""

End Sub

Private Sub Command2_Click()

Form1.Hide

Form3.Show

Form3.Text2.Text = Form2.Text1.Text + Form2.Text2.Text + Form2.Text3.Text + Form2.Text4.Text + Form2.Text5.Text

Form3.Text1.Text = Form3.Text2.Text / 5

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command1_Click()

Form2.Hide

Form1.Show

End Sub

Private Sub Command1_Click()

Form3.Hide

Form1.Show

End Sub

实验十（2）

Private Sub Command1_Click()

Dim t

R = 255 * Rnd

G = 255 * Rnd

B = 255 * Rnd

Xpos = ScaleWidth / 2

Ypos = ScaleHeight / 2

Line (Xpos, Ypos)-((ScaleWidth + 1) * Rnd + 0, (ScaleHeight + 1) * Rnd + 0)

End Sub

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。

VB上机综合测试题(十五套)

VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）

答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub

VB实验报告8

台州学院 《VB程序设计》实验报告实验八：图形的绘制 班级：14制药3班 学号： 姓名： 实验日期：2015.6.5

一、实验目的和要求 1．掌握Visual Basic 容器坐标系的设计方法； 2．熟练掌握Pset、Line和Circle方法的格式及其使用； 3．掌握与图形有关的常用属性，方法。 二、实验主要仪器和设备 计算机一台，Windows XP / Win7操作系统，Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。

程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。

实验思考题参考答案

实验思考题参考答案 实验Fe(OH)3胶体的制备、破坏、分离 1.常压过滤时滤纸为什么要撕去一角？答：使滤纸紧贴玻璃漏斗，有利于排出滤纸与玻璃漏斗之间气泡，形成液柱。 2.抽滤时剪好的滤纸润湿后略大于布氏漏斗的内径、或剪的不圆周边凸出部分贴在布氏漏斗内壁上，对抽滤有何影响？为什么？答：会造成漏虑。滤纸大于布氏漏斗内径会造成滤纸折叠，不能紧贴布氏漏斗。 3.抽滤时，转移溶液之前为什么要先稍微抽气，而不能在转移溶液以后才开始 抽气？答：使滤纸紧贴布氏漏斗，以免造成漏虑。 4. 沉淀物未能铺满布氏漏斗底部、滤饼出现裂缝、沉淀层疏松不实，对抽干效果有什么影响？为什么？如何使沉淀抽得更干爽？答：固液分离效果不好；漏气使压差变小；用药勺铺平、压实沉淀物再抽滤。 由胆矾精制五水硫酸铜 1.结晶与重结晶分离提纯物质的根据是什么？如果被提纯物质是NaCl 而不是CuSO4·5H2O，实验操作上有何区别？ 答：根据物质溶解度随温度变化不同。NaCl 的溶解度随温度变化很小不能用重结晶的办法提纯，要用化学方法除杂提纯。 2.结晶与重结晶有何联系和区别？实验操作上有何不同？为什么？ 答：均是利用溶解度随温度变化提纯物质；结晶浓缩度较高（过饱和溶液），重结晶浓缩度较低（饱和溶液），且可以进行多次重结晶。结晶一般浓缩到过饱和溶液，有晶膜或晶体析出，冷却结晶；重结晶是在近沸状态下形成饱和溶液，冷却结晶，不允许浓缩。

3.水浴浓缩速度较慢，开始时可以搅拌加速蒸发，但临近结晶时能否这样做？ 答：搅拌为了加快水分蒸发；对于利用晶膜形成控制浓缩程度，在邻近结晶时不能搅拌。否则无法形成晶膜。 4.如果室温较低，你准备采用什么措施使热过滤能顺利进行？答：预热漏斗、 分批过滤、保温未过滤溶液。 5.浓缩和重结晶过程为何要加入少量H2SO4？答：防止防止Fe3+水解。 粗盐提纯 1.为什么说重结晶法不能提纯得到符合药用要求的氯化钠？为什么蒸发浓缩时 氯化钠溶液不能蒸干？ 答：NaCl 的溶解度随温度变化很小不能用重结晶的办法提纯，药用氯化钠不仅要达到纯度要求，还要符合药用要求。不能浓缩至干NaCl 溶液，是为了除去KCl。 2.用化学法除去SO42-、Mg2+ 、Ca2+的先后顺序是否可以倒置过来？为什么？ 答：不能，除杂要求为除去杂质引入的离子必须在后续的除杂过程中除去，先除去Mg2+ 、Ca2+后除SO42-，无法除去Ba2+。 3.用什么方法可以除去粗盐中不溶性杂质和可溶性杂质？依据是什么？ 答：不溶性杂质用过滤方法；可溶性杂质用化学方法除杂。依据：溶度积。 醋酸解离度和电离常数测定 1.不同浓度的HAc 溶液的溶解度α是否相同？为什么？用测定数据说明弱电解质解离度随浓度变化的关系。 答：不同，因K a,θ AH 。c↑,α↓。 c 2.测定不同浓度的HAc 溶液的pH 值时，为什么按由稀到浓的顺序？答：平衡块，减小由于润洗不到位而带来的误差。

九江学院VB期末考试题目及详细答案

九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件

【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误

VB实验报告(含答案)

实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____

实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。 图实验1-1 运行界面 三．实验结果：对象属性设置 对象属性属性值说明 caption我的第一个vb程序窗体Form1 caption请输入姓名标签Label1 text““文本框Text1 caption显示命令按钮Command1 caption清除命令按钮Command2 四．实验思考： 1.标签label控件设置的属性代码有哪些 =“请输入姓名” =24 =True 2.两个按钮所使用的是什么事件代码分别是什么 Private Sub Command1_Click() =“姓名”

实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C= 5 / 9(F - 32)。F为华氏温度，C为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。 图2-1 图2-2 三．实验结果：对象属性设置 1.温度转换 对象属性属性值说明 Form1Caption Inputbox与msgbox窗体

大学化学试验思考题答案

实验一络合滴定法测定水的硬度 一、思考题及参考答案： +，而在络合滴定中应保持酸度不变，H故需加因为EDTA与金属离子络合反应放出1、入缓冲溶液稳定溶液的pH值。若溶液酸度太高，由于酸效应，EDTA的络合能力降低，若溶液酸度太低，金属离子可能会发生水解或形成羟基络合物，故要控制好溶液的酸度。 2、铬黑T在水溶液中有如下： 2-3-－（pKa＝6.3 In pKa＝11.55）HIn ? HIn ?322紫红兰橙 从此估计，指示剂在pH<6.3时呈紫红色，pH>11.55时，呈橙红色。而铬黑T与金属离子形成的络合物显红色，故在上述两种情况下，铬黑T指示剂本身接近红色，终点变色不敏锐，不能使用。根据实验结果，最适宜的酸度为pH 9～10.5，终点颜色由红色变为蓝色，变色很敏锐。 3+3+2+2+2+有干扰。、、CuNi、3、Al、FeCo2+2+2+，加入三乙醇胺掩蔽Ni掩蔽Cu、、CoS在碱性条件下，加入Na或KCN23+3+。、AlFe实验二原子吸收法测定水的硬度 一、思考题参考答案： 1.如何选择最佳的实验条件？ 答：通过实验得到最佳实验条件。 （1）分析线：根据对试样分析灵敏度的要求和干扰情况，选择合适的分析线。试液浓度低时，选最灵敏线；试液浓度高时，可选次灵敏线。 （2）空心阴极灯工作电流的选择：绘制标准溶液的吸光度—灯电流曲线，选出最佳灯电流。（3）燃助比的选择：固定其他实验条件和助燃气流量，改变乙炔流量，绘制吸光度—燃气流量曲线，选出燃助比。 （4）燃烧器高度的选择：用标准溶液绘制吸光度—燃烧器高度曲线，选出燃烧器最佳高度。（5）狭缝宽度的选择：在最佳燃助比及燃烧器高度的条件下，用标准溶液绘制吸光度—狭缝宽度曲线，选出最佳狭缝宽度。 2.为何要用待测元素的空心阴极灯作光源？ 答：因为空心阴极灯能够发射出待测元素的特征光谱，而且为了保证峰值吸收的测量，能发射出比吸收线宽度更窄、强度大而稳定、背景小的线光谱。 3+含量测定Fe 硫酸亚铁铵的制备及实验三 四、思考题及参考答案 1、本实验在制备FeSO的过程中为什么强调溶液必须保证强酸性？4答：如果溶液的酸性减弱，则亚铁盐(或铁盐)的水解度将会增大，在制备2+(NH)S0·FeSO·6HO的过程中，为了使Fe不被氧化和水解，溶液需要保持足够的酸22444度。 2 、在产品检验时，配制溶液为什么要用不含氧的去离子水？除氧方法是怎样的？ 2+3+，影响产品Fe使用不含氧的去离子水配溶液，是为了防止水中溶解的氧将Fe氧化为供参考．质量。水中除去氧的方法是：在烧杯中将去离子水加热煮沸10分钟，用表面皿盖好杯口，冷却后使用。 3、在计算硫酸亚铁和硫酸亚铁铵的理论产量时，各以什么物质用量为标准?为什么? 答：计算FeSO的理论产量时，以Fe屑的参加反应量为标准。4计算(NH)SO·FeSO·6HO的理论产量时，应以(NH)SO的用量为标准。42442244决定计算标准的原则是，以反应物中不足量者为依据。(详见讲解与示范中的3)。

初三_vb期末考试试卷+答案

九年级期末VB 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度

VB练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

大一VB期末考试试卷及答案

大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)

VB上机实验题

(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，请务必认真！ ．．．．．．) 实验一：第二章 ⒈在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。 Private sub command1_click() Label1.visible=false Command1.caption=label1.caption End sub ⒉在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框， 名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。 上机代码：Private sub command1_click() Label1.visible=false Text1.visible=false Print text1.text End sub ⒊在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名 称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。

VB实验报告一VB环境和可视化编程基础

大学学生实验报告 开课学院及实验室：地理科学学院2014年4月1日

表A_1 对象属性设置 控件名属性 Form1 Caption=”实验A_1” Label1 Caption=”欢迎学习VisualBasic”;Font属性:字号为二号,字体为隶书 Label2 Caption=”请输入你的”Font属性:字体为楷体,有下划线 Text1 Text1=”” Command1 Caption=”” Label3 Caption=””,BorderStyle=1 ④窗体界面设计如图1： 图1 实验A_1窗体界面设计 ⑤代码设计如图2： 图2实验A_1代码设计 （3）实验结果

①运行结果如图3： 图3实验A_1运行结果 ②保存文件如图4： 图4实验A_1文件保存 A_2 （1）实验容：模仿教材例1.1，将事件过程自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。各控件及属性窗口的设置参见表格A.2，背景图形文件可以选择自己喜欢的，按钮上的图标通过Windows 搜索功能查找。以Sy1-2为项目名保存。 （2）实验步骤： ①创建一个“标准EXE”工程； ②在窗体上添加标签Label1、命令按钮Command1和Command2及Timer1； ③设置对象属性；

表A_2 对象属性设置 控件名属性 Form1 Caption=”实验A_2”;Picture:为你喜欢的图片 Label1 Caption=”我开始学习程序设计”;Fontsize=36 Command1 Caption=””;Style=1;Piciture=”clock02.ico”;ToolTipText=” 自动” Command2 Caption=””;Style=1;Piciture=”key04.ico”;ToolTipText=” 手动” Timer1 Internal=0 ④窗体界面设计如图5： 图5 实验A_2窗体界面设计 ⑤代码设计如图6：

生化实验思考题参考答案[1].

生化实验讲义思考题参考答案 实验一淀粉的提取和水解 1、实验材料的选择依据是什么？ 答：生化实验的材料选择原则是含量高、来源丰富、制备工艺简单、成本低。从科研工作的角度选材，还应当注意具体的情况，如植物的季节性、地理位置和生长环境等，动物材料要注意其年龄、性别、营养状况、遗传素质和生理状态等，微生物材料要注意菌种的代数和培养基成分的差异等。 2、材料的破碎方法有哪些？ 答：(1) 机械的方法：包括研磨法、组织捣碎法； (2) 物理法：包括冻融法、超声波处理法、压榨法、冷然交替法等； (3) 化学与生物化学方法：包括溶胀法、酶解法、有机溶剂处理法等。 实验二总糖与还原糖的测定 1、碱性铜试剂法测定还原糖是直接滴定还是间接滴定？两种滴定方法各有何优缺点？ 答: 我们采用的是碱性铜试剂法中的间接法测定还原糖的含量。间接法的优点是操作简便、反应条件温和，缺点是在生成单质碘和转移反应产物的过程中容易引入误差；直接法的优点是反应原理直观易懂，缺点是操作较复杂，条件剧烈，不易控制。 实验五粗脂肪的定量测定─索氏提取法 （1）本实验制备得到的是粗脂肪，若要制备单一组分的脂类成分，可用什么方法进一步处理？ 答：硅胶柱层析，高效液相色谱，气相色谱等。 （2）本实验样品制备时烘干为什么要避免过热? 答：防止脂质被氧化。 实验六蛋白质等电点测定 1、在等电点时蛋白质溶解度为什么最低？ 请结合你的实验结果和蛋白质的胶体性质加以说明。

蛋白质是两性电解质，在等电点时分子所带净电荷为零，分子间因碰撞而聚沉倾向增加，溶液的粘度、渗透压减到最低，溶解度最低。结果中pH约为4.9时，溶液最浑浊，达到等电点。 答： 2、在分离蛋白质的时候，等电点有何实际应用价值？ 答: 在等电点时，蛋白质分子与分子间因碰撞而引起聚沉的倾向增加，所以处于等电点的蛋白质最容易沉淀。在分离蛋白质的时候，可以根据待分离的蛋白质的等电点，有目的地调节溶液的pH使该蛋白质沉淀下来，从而与其他处于溶液状态的杂质蛋白质分离。 实验七氨基酸的分离鉴定－纸层析法 1、如何用纸层析对氨基酸进行定性和定量的测定？ 答: 将标准的已知氨基酸与待测的未知氨基酸在同一张层析纸上进行纸层析，显色后根据斑点的Rf值，就可以对氨基酸进行初步的定性，因为同一个物质在同一条件下有相同的Rf 值；将点样的未知氨基酸溶液和标准氨基酸溶液的体积恒定，根据显色后的氨基酸斑点的面积与点样的氨基酸质量成正比的原理，通过计算斑点的面积可以对氨基酸溶液进行定量测定。 3、纸层析、柱层析、薄层层析、高效液相层析各有什么特点？ 答:

vbvb期末考试实验答案作业

请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。 具体要求如下： 1. 应用程序界面设计参考图示。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为255] 4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。 思考题：拖动滚动条时有没有触发滚动条的Change事件？ 提示: 1. 应用程序界面设计参考图示。 程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的），将其FillStyle属性设置为0。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。

3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。 颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。 Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 设计文本框的Change事件： Private Sub Text1_Change(Index As Integer) HScroll1(Index).Value = Val(Text1(Index).Text) End Sub 5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。 Text2.ForeColor = Shape1.FillColor 下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示:

VB实验报告(含答案)

VB实验报告(含答案)

实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____

实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般 功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用 程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、 事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。

实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏 温度，用msgbox输出转换后的摄氏温度。转换 公式是：C= 5 / 9(F - 32)。F为华氏温度，C 为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。

分析实验实验报告思考题答案

分析实验实验报告思考题 答案 This manuscript was revised on November 28, 2020

实验一、NaOH和HCl标准溶液的配制及比较滴定 和NaOH标准溶液能否用直接配制法配制为什么 答：由于NaOH固体易吸收空气中的CO2和水分，浓HCl的浓度不确定，固配制HCl和NaOH标准溶液时不能用直接法。 2.配制酸碱标准溶液时，为什么用量筒量取HCl，用台秤称取NaOH（S）、而不用吸量管和分析天平 答：因吸量管用于标准量取需不同体积的量器，分析天平是用于准确称取一定量的精密衡量仪器。而HCl的浓度不定， NaOH易吸收CO2和水分，所以只需要用量筒量取，用台秤称取NaOH即可。 3.标准溶液装入滴定管之前，为什么要用该溶液润洗滴定管2～3次而锥形瓶是否也需用该溶液润洗或烘干，为什么 答：为了避免装入后的标准溶液被稀释，所以应用该标准溶液润洗滴管2～3次。而锥形瓶中有水也不会影响被测物质量的变化，所以锥形瓶不需先用标准溶液润洗或烘干。 4.滴定至临近终点时加入半滴的操作是怎样进行的 答：加入半滴的操作是:将酸式滴定管的旋塞稍稍转动或碱式滴定管的乳胶管稍微松动，使半滴溶液悬于管口，将锥形瓶内壁与管口接触，使液滴流出，并用洗瓶以纯水冲下。 实验二、NaOH溶液的配制及食用白醋总酸度的测定 1.如何计算称取基准物邻苯二甲酸氢钾或Na2CO3的质量范围称得太多或太少对标定有何影响 答：在滴定分析中，为了减少滴定管的读数误差，一般消耗标准溶液的体积应在20—25ml之间，称取基准物的大约质量应由下式求得： 如果基准物质称得太多，所配制的标准溶液较浓，则由一滴或半滴过量所造成的误差就较大。称取基准物质的量也不能太少，因为每一份基准物质都要经过二次称量，如果每次有±的误差，则每份就可能有±的误差。因此，称取基准物质的量不应少于，这样才能使称量的相对误差大于1‰。 2.溶解基准物质时加入20～30ml水，是用量筒量取，还是用移液管移取为什么 答：因为这时所加的水只是溶解基准物质，而不会影响基准物质的量。因此加入的水不需要非常准确。所以可以用量筒量取。 3.如果基准物未烘干，将使标准溶液浓度的标定结果偏高还是偏低 答：如果基准物质未烘干，将使标准溶液浓度的标定结果偏高。 4.用NaOH标准溶液标定HCl溶液浓度时，以酚酞作指示剂，用NaOH滴定HCl，若NaOH 溶液因贮存不当吸收了CO2，问对测定结果有何影响 答：用NaOH标准溶液标定HCl溶液浓度时，以酚酞作为指示剂，用NaOH滴定HCl，若NaOH溶液因贮存不当吸收了CO2，而形成Na2CO3，使NaOH溶液浓度降低，在滴定过程中虽然其中的Na2CO3按一定量的关系与HCl定量反应，但终点酚酞变色时还有一部分NaHCO3末反应，所以使测定结果偏高。 5.如果NaOH溶液吸收了空气中的CO2,对食用白醋总酸度的测定有何影响、为什么、 答：NaOH吸收了空气中的CO2，使标准溶液中的氢氧化钠浓度变小，用来滴定未知醋酸的浓度，会使测得的浓度偏大 6.本实验中为什么选用酚酞做指示剂其选择原则是什么根据选择原则选用其他指示剂可以吗如果可以请举例说明。

大一的vb期末考试题和答案

大一的vb期末考试题和答案 1．在代码中引用一个控件时，应使用控件的（）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（）的值为“假”。 A．x+a <=b-y B．x>0 AND y<0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（）类型数据。 A．整型 B．单精度浮点数 C．货币 型 D．长整型 6．下列变量名中正确的是（）。

A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（）是有效的。 A.sum=sum-sum B.x+2=x+2 C.x+y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（）。 A．Print B．Textbox C．Optionbutto n D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。 https://www.doczj.com/doc/d57346599.html, B.ListIndex C．ListCount D．Text 10．下列代码的运行结果为（）。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5

(完整版)VB上机练习题

1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。 Private Sub Command1_Click() Text1.Font = 黑体 End Sub Private Sub Command2_Click() Text1.ForeColor = vbRed Text2.ForeColor = vbBlue End Sub Private Sub Command3_Click() End End Sub 2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。 Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbRed End Sub Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreen End Sub Private Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End Sub Private Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub 3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。 Private Sub Command1_Click() Text1.Text = "" Text2 Text1