2014 VB 实验教学大纲 (1)
篇一:65/3,mod,2.6,*fix(3.7)
计算机应用基础（二）实验教学大纲
课程编号：
课程名称：计算机应用基础二
英文名称：Fundamentals 2 of Computer Application
对 象：本科
上机时数：28小时（14周）
一、实验说明
本实验大纲中的每个题目要求在一个窗体内实现。由于VB2010创建的项目中包含的文件及文件夹较多。为防止学生上传的作业文件不全，要求学生把项目全部保存（在VB的文件菜单中选择“全部保存”，见图一）；项目名称为学生本人的学号-实验题序号。同时建议学生自己建立一个保存位置，见图二。
图一
图二
项目保存后，会在保存位置的文件夹中自动创建一个文件夹，该文件夹的名称就是编程人在保存时所起的项目的名称。将该文件夹压缩为 .rar 文件，压缩文件名为：学号-题目序号.rar。将该压缩文件上传到183.175.17.80服务器指定的FTP账户中。
二、实验
实验1： 编写一个VB.NET程序。要求在窗体设置一个按钮（Button）、一个文本框（TextBox）和一个标签（Label）；程序运行时，单击按钮，在文本框和标签中同时显示“我的第一个VB程序”。
实验目的：熟悉VB编程环境，及窗体、标签、文本框、按钮的简单应用。
实验2：编写一个VB.NET程序。要求在窗体上放置1个TextBox控件和4个Button控件。分别单击这4个按钮，可以把文本框的背景色分别设置为红色、蓝色、黑色和绿色。
实验目的：熟悉VB编程环境，及窗体、标签、文本框、按钮的简单应用。
实验3：编写一个VB.NET程序。要求在窗体上画一个文本框和两个按钮，把两个按钮的标题分别设置为“显示”和“清除”。程序运行后，在文本框中输入一行文字（例如"VB. NET程序设计”），如果单击“显示”按钮，则把文本框中的内容显示为窗体标题；如果单击“清除”按钮，则清除文本框中的内容。
实验目的：熟悉VB编程环境，及窗体、标签、文本框、按钮的简单应用。
注：前3个实验要求在第一次上机时完成，教学第3周末前上交到指定服务器。
实验4：编写一个VB.NET程序。要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。
1） 8*3*6\2
2） 7/6*3.2/2.15*(5.5+3.5)
3） 34\4+4.0^5/12
4） 65\3 mod 3.4*fix(3.8)
5） “abg”+”34” & “erert”
6） true or not (8+3>=23)
7） 7>2 or 4<9
实验目的：学习VB运算符的使用。
实验5：编写一个VB.NET程序。
设a=2， b=3， c=4， d=5，S="ABCDEFGHI]K"，求下列表达式的值：
(1) 5+(a+b)2 (2) cos(b)(sin(a)+1) (3) 8e3ln2
(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")
(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)
实验目的：学习VB中函数的使用。
注：实验4和实验5要求在教学第4周末前上交到指定服务器。
实验6：编写一个VB.NET程序。利用速度和距离的计算公式，按要求进行计算并显示计算结果。sAsZAZs
2已知：a=1.5米/秒，程序
运行时，通过文本框输入初速度
V0和时间t，单击窗体，计算出
末速度Vt和距离S的值。要求在显示结果时带上单位。速度单位是：米/秒，距离单位是：米。
实验目的：学习VB的顺序结构编程，计算表达式的值。
实验7：将试题6用InputBox函数输入初速度V0和时间t，用MsgBox输出计算结果。
实验目的：学习VB的顺序结构编程，及InputBox、MsgBox函数的使用。
注：实验6和实验7要求在教学第5周末前上交到指定服务器。
实验8：编写一个VB.NET程序，要求3个问题在同一个窗体内实现。在窗体上设置三个按钮，单击每个按钮，分别完成每个问题。
问题1：在窗体上放置1个文本框。在文本框中输入英文字符，单击按钮会将文本框中的所有大写字符转换为小写，所有小写字符转换为大写。如输入I Just MEET Her，则输出为i jUST meet hER。
问题2：输入一个学生的五门课的考试成绩，判断其是否为优秀。优秀的条件为：五门课成绩总分超过450分或每门课程在88以上或每门主课（前三门）的成绩都在95分以上其他课程在80分以上。
问题3：运输部门的货物运输与里程有关，距离越远，每吨货物的单价越低，假设每吨单价P与距离S之间的关系如下，
S<100
28 100<=S<200
P= 200<=S<300
22.5 300<=S<400
20 400<=S>=1000
S>1000
输入货物重量和运送距离后，计算相应的运费。
实验目的：学习选择结构的使用。
注：教学第7周末前上交到指定服务器。
实验9：编写一个VB.NET程序，要求3个问题在同一个窗体内实现。在窗体上设置三个按钮，单击每个按钮，分别完成每个问题。
问题1：我国现有人口13亿，设年增长率为百分之一，编程计算多少年后增加到30亿。 问题2：将乘法口诀表用上三角形方式输出。
1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9
2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=14 2*8=16 2*9=18
。。。。。。
9*9=81
问题3：编写程序输出如下等腰三角形：
实验目的：学习循环结构的使用。
注：教学第9周末前上交到指定服务器。
实验10：编写一个VB.NET程序，要求2个问题在同一个窗体内实现。在窗体上设置二个按钮，单击每个按钮，分别完成下面每个问题。
问题1：在窗体中打印输出杨辉三角，按等腰三角形形式输出；
问题2：产生100个100以内的随机数，将他们从大到小排序后输出。
实验目的：学习数组的使用。
注：教学第10周末前上交到指定服务器。
实验11：编写一个VB.NET程序，要求2个问题在同一个窗体内实现。在窗体上设置二个按钮，单击每个按钮，分别完成下面每个问题。
问题1：编写求s=1+2!+3!+„+n! 程序，要求计算n！用Sub过程实现。
问题2：编写求s=1+2!+3!+„+n! 程序，要求计算n！用 Function过程实现。
实验目的：学习数组的使用。
注：教学第11周末前上交到指定服务器。
第12教学周，熟悉上机考试环境 ，本周末进行上机考试。
实验12：编写一个VB.NET程序，产生100个两位数的随机数，将他们以逗号分割后存入顺序文件num.txt，然后读入到一个数组中排序后输出。
实验目的：学习数组的使用。
注：教学第13周末前上交到指定服务器。
实验13：编写一个VB.NET程序，要求2个问题在同一个窗体内实现。在窗体上设置二个按钮，
单击每个按钮，分别完成下面每个问题。
问题1：编程序实现一个数字时钟；并且在该程序中练习其他控件的使用方法。 问题2：编程序实现一个简单的计算器。（界面如图三所示）
图三
实验目的：学习控件的使用。
注：教学第14周末前上交到指定服务器。
教学第15周和第16周机动。
2014年2月24日
答案 ===-2014 VB 实验教学大纲
篇二:65/3,mod,2.6,*fix(3.7)
计算机应用基础（二）实验教学大纲
课程编号：
课程名称：计算机应用基础二
英文名称：Fundamentals 2 of Computer Application
对 象：本科
上机时数：28小时（14周）
一、实验说明
本实验大纲中的每个题目要求在一个窗体内实现。由于VB2010创建的项目中包含的文件及文件夹较多。为防止学生上传的作业文件不全，要求学生把项目全部保存（在VB的文件菜单中选择“全部保存”，见图一）；项目名称为学生本人的学号-实验题序号。同时建议学生自己建立一个保存位置，见图二。
图一
图二
项目保存后，会在保存位置的文件夹中自动创建一个文件夹，该文件夹的名称就是编程人在保存时所起的项目的名称。将该文件夹压缩为 .rar 文件，压缩文件名为：学号-题目序号.rar。将该压缩文件上传到183.175.17.80服务器指定的FTP账户中。
二、实验
实验1： 编写一个VB.NET程序。要求在窗体设置一个按钮（Button）、一个文本框（TextBox）和一个标签（Label）；程序运行时，单击按钮，在文本框和标签中同时显示“我的第一个VB程序”。
实验目的：熟悉VB编程环境，及窗体、标签、文本框、按钮的简单应用。
实验2：编写一个VB.NET程序。要求在窗体上放置1个TextBox控件和4个Button控件。分别单击这4个按钮，可以把文本框的背景色分别设置为红色、蓝色、黑色和绿色。
实验目的：熟悉VB编程环境，及窗体、标签、文本框、按钮的简单应用。
实验3：编写一个VB.NET程序。要求在窗体上画一个文本框和两个按钮，把两个按钮的标题分别设置为“显示”和“清除”。程序运行后，在文本框中输入一行文字（例如"VB. NET程序设计”），如果单击“显示”按钮，则把文本框中的内容显示为窗体标题；如果单击“清除”按钮，则清除文本框中的内容。
实验目的：熟悉VB编程环境，及窗体、标签、文本框、按钮的简单应用。
注：前3个实验要求在第一次上机时完成，教学第3周末前上交到指定服务器。(1)
实验4：编写一个VB.NET程序。要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。
1） 8*3*6\2
2） 7/6*3.2/2.15*(5.5+3.5)
3） 34\4+4.0^5/12
4） 65\3 mod 3.4*fix(3.8)
5） “abg”+”34” & “erert”
6） true or not (8+3>=23)
7） 7>2 or 4<9
实验目的：学习VB运算符的使用。
实验5：编写一个VB.NET程序。
设a=2， b=3， c=4， d=5，S="ABCDEFGHI]K"，求下列表达式的值：
(1) 5+(a+b)2 (2) cos(b)(sin(a)+1) (3) 8e3ln2
(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")
(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)
实验目的：学习VB中函数的使用。
注：实验4和实验5要求在教学第4周末前上交到指定服务器。(2)
实验6：编写一个VB.NET程序。利用速度和距离的计算公式，按要求进行计算并显示计算结果。
2已知：a=1.5米/秒，程序运行时，通过文本框输入初速度V0和时间t，单击窗体，计算出末速
度Vt和距离S的值。要求在显示结果时带上单位。速度单位是：米/秒，距离单位是：米。 实验目的：学习VB的顺序结构编程，计算表达式的值。
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Dim a As Integer
a = 1.5
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) * a & Space(2) & "米¡Á / 秒?"
TextBox4.Text = Val(TextBox1.Text) * Val(TextBox2.Text) + a * Val(TextBox2.Text) ^ 2 / 2 & Space(2) & "米"
End Sub
实验7：将试题6用InputBox函数输入初速度V0和时间t，用MsgBox输出计算结果。
实验目的：学习VB的顺序结构编程，及InputBox、MsgBox函数的使用。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim v0 As Single, t As Single, vt As Single, s As Single
v0 = Val(InputBox("请输入初速度v0:"))
t = Val(InputBox("请输入时间t:"))
vt = v0 + 1.5 * t
s = v0 * t + 1 / 2 * 1.5 * t * t
MsgBox("末速度vt=" & vt & "m/s" & vbCrLf & "距离s=" & s & "m")
End Sub
注：实验6和实验7要求在教学第5周末前上交到指定服务器。(3)
实验8：编写一个VB.NET程序，要求3个问题在同一个窗体内实现。在窗体上设置三个按钮，单击每个按钮，分别完成每个问题。
问题1：在窗体上放置1个文本框。在文本框中输入英文字符，单击按钮会将文本框中的所有大写字符转换为小写，所有小写字符转换为大写。如输入I Just MEET Her，则输出为i jUST meet hER。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i%, ch$
Dim ch1$ = ""
For i = 1 To Len(Trim(TextBox1.Text))
ch = Strings.Mid(Trim(TextBox1.Text), i, 1)
If ch >= "A"c And ch <= "Z"c Then
ch1 &= Char.ToLower(ch)
ElseIf ch >= "a"c And ch <= "z"c Then
ch1 &= Char.ToUpper(ch)
Else
ch1 &= ch
End If
Next
TextBox1.Text = ch1
End Sub
问题2：输入一个学生的五门课的考试成绩，判断其是否为优秀。优秀的条件为：五门课成绩总分超过450分或每门课程在88以上或每门主课（前三门）的成绩都在95分以上其他课程在80分以上。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a!, b!, c!, d!, f!, s!
a = Val(InputBox("请输入第1门课的成绩："))
b = Val(InputBox("请输入第2门课的成绩："))
c = Val(InputBox("请输入第3门课的成绩："))
d = Val(InputBox("请输入第4门课的成绩："))
f = Val(InputBox("请输入第5门课的成绩："))
s = a + b + c + d + f
If (s >= 450) Or (a >= 88 And b >= 88 And c >= 88 And d >= 88 And f >= 88) Or (a >= 95 And b >= 95 And c >= 95 And d >= 80 And f >= 80) Then
MsgBox("该同学的成绩为优秀！")
Else
MsgBox("该同学的成绩不优秀！")
End If
End Sub
问题3：运输部门的货物运输与里程有关，距离越远，每吨货物的单价越低，假设每吨单价P与距离S之间的关系如下，输入货物重量和运送距离后，计算相应的运费。 S<100
28 100<=S<200
P= 200<=S<300
22.5 300<=S<400
20 400<=S<=1000
S>1000
Tips：price=p*s*t
实验目的：学习选择结构的使用。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t!, s!, p!, price!
t = Val(InputBox("请输入货物重量："))
s = Val(InputBox("请输入运送距离："))
Select Case s
Case Is < 100
p = 32
Case Is < 200
p = 28
Case Is < 300
p = 25
Case Is < 400
p = 22.5
Case Is <= 10000
p = 20
Case Else
p = 15
End Select
price = p * s * t
MsgBox("运费为：" & price)
End Sub
注：教学第7周末前上交到指定服务器。(4)
实验9：编写一个VB.NET程序，要求3个问题在同一个窗体内实现。在窗体上设置三个按钮，单击每个按钮，分别完成每个问题。
问题1：我国现有人口13亿，设年增长率为百分之一，编程计算多少年后增加到30亿。
Dim p As Single, n%
Do
n = n + 1
p = 13 * (1 + 0.01) ^ n
Loop While p < 30
MsgBox(n & "年后，人口达到30亿。")
问题2：将乘法口诀表用上三角形方式输出。（见课本）
1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9
2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=14 2*8=16 2*9=18
。。。。。。
9*9=81
问题3：编写程序输出如下等腰三角形：
Dim i%, j%, s$, n%
职高第3章vb语言基础第一轮
篇三:65/3,mod,2.6,*fix(3.7)
第三章 练习
一、选择题
1、表达式X+5是（ ）
A．关系表达式B．算术表达式 C．逻辑表达式 D．字符串表达式 2、以下合法的变量是（ ）
17、代数式
ab
d
对应的Visual Basic表达式是（ ）
A、a/b+c/d B、a/(b+c)/d C、(a/b+c)/d D、a/(b+c/d) 18、在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以A．ab$ B．let C．%ab D．2a# 3、以下合法的字符常量是（ ） A．“1234” B．2E-2 C．10^3 D．SINX 4、168&是（ ）类型的常量
A．整型 B．长整型 C．单精型 D．双精型 5、以下合法的函数是（ ）
A．COS[X] B．EXP.3 C．SINX D． EXP（3） 6、函数EXP（0）的值为（ ）
A．0 B．1 C．2.71828 D．3.14 7、变量RTW属于（ ）类型
A．整型 B．单精型 C．双精型 D．字符型 8、下述四个表达式中，（ ）的值为0
A．4\5 B．4/5 C．4 MOD 5 D．5 MOD 4 9、多条语句写在一行，语句之间用（ ）间隔。 A． 冒号 B．分号 C．顿号 D．逗号 10、逻辑运算的优先级为（ ）
A．NOT、OR、AND B．OR、AND、NOT C．NOT、AND、OR D．从左到右 11、下列不是字符串常量的是（ ）
A、"你好" B、"" C、" True" D 、#False# 12、下列叙中不正确的是（ ）
A、变量名中的第一个字符必须是字母 B、变量名的长度不超过255个字符 C、变量年名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字 13、以下可以作为Visual Basic变量名的是（ ）
A、SIN B、CO1 C、COS（X） D、X（-1） 14、表达式5^2Mod25\2^2的值是（ ）
A、1 B、0 C、6 D、4 15、表达式25.28Mod6.99的值是（ ）
A、1 B、5 C、4 D、出错 16、表达式Int(-17.8)+Abs(17.8)的值为（ ）
A、18 B、-17 C、-18 D、-16 16、表达式Abs(-5)+Len("ABCDE")的值为（ ）
A、5ABCDE B、-5ABCDE C、10 D、0
在行末使用续行字符（ ），表示下一行是当前行的继续。
A、一个空格加一个下划字符（_） B、一个下划字符（_） C、直接回车 D、一个空格加一个连字符(-) 19、下列变量命名正确的是( )。
A. vb+1 B. myfile C. Abs D. 9md..1
20、在VB中，变量定义语句为Dim a,b as Integer，则变量a和b的类型分别为( A. a，b均为整型 B. a为整型，b为变体类型 C. a，b均为变体类型 D. a为变体类型，b为整型
21、一条语句要在下一行继续写，用( )符号作为续行符。 A. + B. - C. _ D.… 22、获得系统日期的函数是( )。
A. data$ B. time$ C. date$ D. gettime$ 23、表达式16/4-2^5*8/4 mod 5\2的值为( )。 A. 14 B. 4 C. 20 D. 2
24、与数学表达式 ab/6cd对应，VB的不正确表达式是( )。 A. a*b/(6*c*d) B. a/6*b/c/d C. a*b/6/c/d D. a*b/6*c*d 25、在VB中不能表示逻辑真的是( )。
A. True B. -1 C. 1 D. T
26、下列函数中，返回值是字符串的是( )。 A. Mid B. InStr C. Val D. Len 27、下列( )的表达式不等于4。
A. abs(int(-4.5)) B. abs(int(-3.9)) C. int(4.1) D. int(4.9) 28、Integer类型的变量可存的最大整数为( )。
A. 255 B. 256 C. 32768 D. 32767
29、下面的几对数据类型中，( )占用内存最少。
A. Integer、Boolean B. Integer、Single C. Date、Single D. Long、Double 30、下列哪一个是日期型常量( )。
A. " 2/1/99 " B. 2/1/99 C. # 2/1/99 # D. { 2/1/99 } 31、下面哪个是算术运算符( )。
A. Imp B. Mod C. Not D. Eqv 32、以下选项中，不合法的Visual Basic变量名是( )。 Ａ）a5b B）_xyz C）a_b D)andif
33、下面可以正确定义2个整型变量和1个字符串变量的语句是( )。 A)Dim n, m As Integer, s As String B)Dim a%, b$, c As String
)。
C)Dim a As Integer, b, c As String D)Dim x%, y As Integer, z As String
34、下列表达式中不能判断x是否为偶数的是( )。
A)x/2=Int(x/2) B)x Mod 2=0 C)Fix(x/2)=x/2 D)x\2=0
35、设a=2，b=3，c=4，下列表达式的值是 Not a<=c Or 4*c=b^2 And b<>a+c( )。 A）-1 B）1 C）True D)False 36. 设有如下语句： Dim a,b As Integer C=”VisualBasic” D=#7/20/2005#
以下关于这段代码的叙述中，错误的是( )。65/3,mod,2.6,*fix(3.7)。
A) a被定义为Integer类型变量 B) b被定义为Integer类型变量 C) c中的数据是字符串 D）d中的数据是日期类型
37. 以下不能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是( )。 A） Left B) Mid C) String D) Instr
38. 设a=4,b=3,c=2,d=1，表达式a>b+1 Or c<d And b Mod c的值是( )。 A) True B) 1 C) -1 D) 0
39. 以下可以作为Visual Basic变量名的是( )。
A） A#A B）counstA C) 3A D) ?AA
40、设a=2, b=3, c=4, d=5, 表达式Not a<=c Or 4*c=b^2 And b<>a+c的值是( )。 A）-1 B）1 C）True D）False 41、设a = 5，b = 10，则执行c = Int((b - a) * Rnd + a) + 1 后，c值的范围为( )。 A）5～10 B）6～9 C）6～10 D）5～9 42、以下合法的Visual Basic标识符是( )。
A) ForLoop B) Const C) 9abc D) a#x 43、表达式 5 Mod 3+3\5*2的值是( )。
A) 0 B) 2 C)4 D) 6
44、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3,a$) End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是( )。 A) VVV B) Vis C) sic D) 11
45、执行语句s = Len(Mid("Visual Basic", 1, 6))后，s的值是( )。 A） Visual B) Basic C) 6 D) 11 46、以下关系表达式中，其值为False的是( )。
A"ABC" > "AbC" B) "the" <> "they" C) "VISUAL" = Ucase("Visual") D) "Integer" > "Int" 47、语句Print 5 / 4 * 6 \ 5 Mod 2的输出结果是( )。 A） 0 B) 1 C) 2 D) 3
48、以下声明语句中错误的是( )。
A）Const var1=123 B）Dim var2 = 'ABC' C）DefInt a-z D）Static var3 As Integer 49、下列可作为Visual Basic变量名的是( )。 A）A#A B）4A C）?xy D) constA
50、将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是( )。 A)Cos(a+b)^2+5*exp(2) B) Cos^2(a+b)+5*exp(2) C) Cos(a+b)^2+5*ln(2) D) Cos^2(a+b)+5*ln(2) 51、设有如下声明：Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是( )。 A)整数 B) 大于0的整数 C) 等于0的整数 D) 小于0的数
52、从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是( )。
A) Left B) Mid C) String D) Instr
53、设a=“Visual Basic”，下面使b=“Basic”的语句是( )。
A) b=Left(a,8,12) B) b=Mid(a,8,5) C) b=Rigth(a,5,5) D) b=Left(a,8,5)
54、表达式37.6 MOD 4.55的值是: ( )
A 、5 B、 4 C、 2 D 、3 55、表达式4+5\6*7 / 8 MOD 9的值为( )
A、 4 B、 5 C 、6 D、 7 56、表达式INT（100*RND（X）+1）的取值范围是： ( )
A 、从1到 100 B、 从0到100 C 、从1到 101 D、从0到101 57、如果将逻辑常量True赋值给一个整型变量，则整型变量的值为：( ) A 0 B -1 C True D False
58、假若a和b是整型变量，则表示条件“1≤a＜8和1<b≤8中只要有一个成立就可以”的逻辑表达式是：( )
A 、1<=A AND A<8 AND 1<B AND B<=8 B、 (1<=A AND A<8) AND NOT (1<B AND B<=8) C 、1<=A AND A<8 OR 1<B AND B<=8 D、 NOT(1<=A AND A<8) OR(1<B AND B<=8) 59．以下不合法的常量是[ ]。
(A) 10^2 (B)100 (C) 100.0 (D) 10E+01 60．Visual Basic允许的常量有[ ]。 (A) E7 (B) 4.8E2 (C) 2.5*10 (D) E-5
61．\ , / , Mod , *四个算术运算符中，优先级最低的是[ ]。 (A) \ (B) / (C)Mod (D) *
62．下列字符串常量中，最大的是[ ]。 (A)”Abc” （B）”ABC” （C）”Therec” （D）”Therea”
63．表达式Int (8 * Sqr (36) * 10 ^ ( - 2) * 10 + 0.5) / 10的值是[ ]。 (A) .48 (B) .048 (C) .5 (D) .05 64．表达式Val(“.123E2CD”)的值是[ ]。
(A) .123 (B) 12.3 (C) 0 (D) .05 65．下列符号常量的声明中，[ ]是不合法的。
（A）Const a As Single=1.1 （B）Const a As Single= “12”
（C）Const a As Double=Sin(1) （D）Const a = “OK”
66．设有以下定义语句：Dim max , min As Single , d1 , d2 As Double , abc As String * 5
则变量max的类型是[ ]，变量min的类型是[ ] ，变量d1的类型是[ ] ，变量d2的类型是[ ] ，变量abc的类型是[ ]。
(A)可变类型 （B）单精度型 （C）双精度型 （D）字符串型
67．表达式 “12”+ “34”的值是[ ]。表达式 “12”& “34”的值是[ ]。表达式12&34的值是[ ]。表达式12+34的值是[ ]。
（A） “1234” （B） “12” “34” （C） “46” （D） 46
68、若x是一个正实数，将千分位四舍五入，保留两位小数的VB表达式为: ( ) A．0.01*Int(x+0.005) B．0.01*Int(100*(x+0.005)) C．0.01*Int(100*(x+0.05)) D．0.01*Int(x+0.05)
69、下列表达式中，合法的Ｖisual Basic表达式有：( ) Ａ．（－b+sqr(b*b+4a*c)）/2/a Ｂ．Cos(a)^2-Atn(a) Ｃ．Sqr(Y^3+3*(A*A+6B*B)) Ｄ．1/(X+1/Y+5A)
70、在程序中分别将变量Inta、Bl、st和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是( )
A、 Inta=4.6 B、Bl=#True# C、st=5&1235 D、D=#10/05/01# 71、语句Print “5*20” 输出结果是( ) A、”5*20” B、出错 C、5*20 D、100
72、Int(198.555*100+0.5)/100的值为( ) A）198 B）199.6 C)198.56 D)20065/3,mod,2.6,*fix(3.7)。
73、骰子是一个正六面体，用1~6这六个数分别代表这六面，掷一次骰子出现的数可表示为( ) A）INT(RND(6)+1) B)INT(RND*6) C)INT(RND*7) D)INT(RND*6+1) 74、语句Print 5*5\5/5的输出结果是( )。 A） 5 B）25 C）0 D）1
75、语句Print sgn(-6^2)+int(-6^2)的输出结果是( )。 185） -36 B）1 C）-37 D）-72 二、填空题
1、VB中，整型数据占( )个字节空间。 2、VB中，一个字母字符占( )个字节。 3、100%表示100为( )类型的数据。
4、符号常量在某一过程中说明，则该符号常量只能在( )内有效。 5、在VB中可以把类型说明符放在变量名的( )面来说明变量的类型。
6、在VB中，若要初始化随机数(RND)的产生器使用( )语句。 7、数学表达式sin30°-ln(5x)的VB算术表达式为( )。
8．若A=20，B=80，C=70，D=30，则表达式A+B>160 Or (B*C>200And Not D>60)的值是( )。
10．X是小于100的非负数，对应的布尔表达式是( )。
11．闰年的条件是：年号（Y）能被4整除。但不能被100整除；或者年号能被400整除。表示该
条件的布尔表达式是：( )。
12．在Visual Basic的转换函数中将数值转换为字符串的函数是( )；将数字字符串转换为数值的函数是( )；将字符转换为相应的ASCII码的函数是( )。 22、执行下面的程序后，b的值为（ ） a=300 b=20 a=a+b b=a-b a=a-b
33．一元二次方程ax^2+bx+c=0有实根的条件有a≠0，并且b*b-4ac>=0，表示该条件的布尔表达式是( )
34．表示条件“变量X为能被5整除的偶数”的布尔表达式是：( ) 37. Dim a, b as Boolean语句显式声明变量a是( )变量，b是( )变量。 38. 声明一个值为3.14的常量Pi的语句为( )。
42.设X是大于300且能被3整除的奇数，关于X的表达式为：( )。 43、语句 Dim a ,b as string ,c as currency
d%=1
则a , b, c, d的数据类型分别为( ) 44表达式10\6 = 10 mod 6 的运算结果是( ) 45、”abcd”>”bcde”的运算结果是( )
46、(14\8 <15\8 xor (14mod8<15mod8)) and (–12>-8)的运算结果为( ) 47、正确表示命题“A是一个带小数的正数，且B是一个带小数的负数”的逻辑表达式是( )
48、将任意一个两位正整数N的个位数与十位数对换得到新数的VB表达式是( )
49、写出算术表达式为（12*X+5*Y－SQR（ABS(D^3－M^2)））／EXP(－Ｘ)/SIN(X)的数学算式( ) 53．表达式93 \ 7 Mod 2 ^ 2 的值是( )。
54．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是( )。表达式c>a And Not b<c的值是( )。
55．日期表达式 #2/24/02# - #2/12/02# 的值为( )。
58.设x=2,y=4,a=4,b=6,表达式 （a>x Xor b<x） OR x<y IMP y<b 的结果为( )。 59．a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为( ). 61、表示X是5的倍数或是9的倍数的逻辑表达式是( )
150
xe3
62、数学表达式sin|xy|
ln(3x)的VB表达式为( )。
Vbscript基础基本语句练习(一)
篇四:65/3,mod,2.6,*fix(3.7)
VBscript语法及基础语句练习(一)
一、变量的使用
1、以下变量中，哪些是非法的变量名？
34ABC s 65 "strText" Acctg98 姓名 a_12
2、以下变量定义语句中，符合语法规则的有哪些，不符合的错在哪里？ （1）Dim a （2）Dim c;d （3）Dim e2=100, （4）Dim 2f （5）Dim hh,g=200;i=”hello!” （6）Dim 500=k 3、以下赋值语句中，符合语法规则的有哪些，不符合的错在哪里？ （1）a=visual basic （2）b=300+a （3）c=a+b （4）d-500=e （5）e=a=b-200 （6）f=700^2-5+b （7）f=f+1 （8）h=”hello” & 30 （9）i=c & ”123” （10）j=”a+b=” （11）-m=n+1 （12）3m=n+x
（12）m=10mod2
二、数值运算及字符串连接65/3,mod,2.6,*fix(3.7)。
1、写出以下表达式的运算结果 （1）3^2-5 （2）4*3\5 （3）9.4\6.5 （4）8 mod 2+1
（5）4*5/6+7 mod 8
（6）10＋10 Mod 2^3+3
2、执行以下各小题的语句后，说出变量a和变量b的值分别为： （1）a=10 B=a A=b*a-a （2）a=”Hello” B=”Nice to meet you!” A=a & “,” & b （3）a=10 B=20 C=a
A=b B=c （4）a=4 B=8*a-a A=8*b-a
A=8*b-a
三、关系运算符和逻辑运算符
1、变量bool_x是一个布尔型（逻辑型）变量，下面正确的赋值语句是_______。
A、bool_x="False"
B、bool_x=.False.
C、bool_x=#False#
D、bool_x=False
2、算出以下运算的值： （1）300>=400 （2）4<>6 （3）not 50=5 （4）5<>5 and 8>3 （5）3<8 and 8<10 （6）5<>5 or 8>3 （7）not 5<>5 and 8>3 （8）8<=10 and (12=3 or 1<0)
3、以下各表达式中，哪些可产生逻辑真的结果？哪些产生逻辑假的结果
（1）38>=38
（2）"s"<="A"
（3）-1>0
（4）1234.56>1234.567
（5）38>=38 and 1234.56>1234.567
（6）not -1>0
（7）-1>0 or 38>=38
4．“x 是小于200 的非负数”，用VB表达式表示正确的是：
（1）0 <= x <200
（2）0 < x <200
（3）0 <=x Or 200>x
（4）0 <=x And 200>x
四、VB中的字符串处理
1、请指出以下赋值语句中左边变量的值。
（1）strA = Left("abcdefg", 3)
（2）strB = Right("abcdefg", 3)
（3）strC = Mid("abcdefg",2,3)
（4）strD = Mid("abcdefg",2)
（5）intA = Int(35.17)
（6）intB = CInt(35.17)
（7）intC = Fix(-3.8)
（8）intD = Int(-3.8)
（9）intE =len(“Visual Basic”)
2、执行以下赋值语句后，变量varA的值是什么？
varA = Val( Ltrim( Str("20")))
3、同时删除字符串前导和尾部空白的函数是_______。
A、Ltrim
B、Rtrim
C、Trim
D、Mid
五、选择控制结构之If语句
1、以下语句中，符不符合语法规则？不符合的该怎样改正？
（1）if a<12 Then stra=”Good morning!” Else Stra=”Good afternoon!” （2）if score<60 then result=”Not Good!” （3）if score<60 then Result=”Very bad!” Elseif score<70 Then result=”Not so bad!” Elseif score<80 then Result=”Nice!” Else if Score<90 then Result=”Very Good!” Else Result=”Wonderful!” Endif （4）if a>60 then If b>60 then C=a+b End if End if 2、口述出以下各小题语句运算后，变量result的值是多少？并能理清其运算过程 （1）a=100 B=7 If a mod b=3 then Result=a Else Result=b End if （2）a=”VbScript” If len(a)=9 then Result=a & “is so easy to learn!” （3）a=100 B=50
If a/2=b then Else If b\33<20 then Result=”a*2” Else Result=a*2 End if
Result=b mod 33
End if
六、Select多分支控件结构
1、运行以下语句后，变量result的值为：
Score=88 Select case score\10 Case 6 Result=”Bad!” Case 7 Result=” Not so bad!” Case 8 Result=”Good!” Case 9 Result=”Very Good!”
七、For Case else Result=”Shit!” End select 循环控制语句
1、指出以下for循环语句的循环次数，并说出计数器i的值怎样变化。
（1）for i=1 to 100
….. Next （2）for i= -5 to 8 step 2 ….. Next （3）for i=1 to 50 step 3 ….. Next （4）for i= 6.5 to 9.4 step 0.7 ….. Next （5）for i= -5 to 8 step 2 ….. Next （6）for i= 41 to 35 step -2 ….. Next
2、经过以下各小题的for循环语句后，变量reslut的值分别为：
（1）for i=1 to 100 Result=result+i next （2）for i=2 to 100 step 2 Result=result+1 Next （3）for i=1 to 5 For j=2 to 4 Result=result+1 Next Next （4）for j=3 to 5 For i=7 to 6 step -1 Result=result+i+j Next Next （5）for k=3 to 20 Result=k Next （6）for i=1 to 20
If I mod 3=0 then result=result+i
next
3、写出以下程序运行后，c,k的值分别是：
k = 0
c = 1
For j = 1 To 5
If j > 3 Then
c = c + 4
Exit For
Else
k = k + 1
End If
Next
QQ好听的英文签名大全,伤感英文签名精选摘抄
篇五:65/3,mod,2.6,*fix(3.7)
1、 "If the whole world betrays you,I'm gonna betray the whole world for you.如果全世界背叛了你，我愿为你"
2、 "You may be out of my sight, but never out of my mind"
3、 "When seen through everything, just know, originally is more practical than having. 当看破一切的时候"
4、 "Sometimes you miss the memories, not the person."
5、 It’s better to try hard to love yourself more than to wait someone to love you
6、 you are my sunshine 一直都是
7、 ［ what the for say？ ］
8、 "网聊时,一个‘呵呵,能践踏对方的所有热情。你觉得呢？"
9、 "The more you care, the more you have to lose——在意的越多，失去的就越多。"
10、 Never forget to have more strong will dare to?（要有多坚强才敢念念不忘？）
11、 "I don't want to be the air, also is so, each person is not? [ 我不愿当做空气,每个人亦是如此,不是吗]"
12、 "I love you, not talk, I want to use a lifetime to prove it.我爱你，不是说说而已我要用一辈子来证明。"
13、 "Love is just a play, the protagonist is not my own [ 爱情只是一出戏,主角不是我自己 ]"
14、 "If you are well, no longer bother with it [ 迩若安好,不再打扰又何妨 ]"
15、 "（Can you tell the world please leave, I want to leave you。）可不可以跟世界请个假,我想暂时离开一下."
16、 "I got are lucky , I lost may be the life。"
17、 i mat you my most beautiful suprises [遇见你是我最美的意外。]
18、 My dream with him even if I cry please don't wake me up
19、 "时光不染,回忆不淡 Time does not dye.Memories do not light."
20、 "Do you think I invulnerability, I thought you vulnerable to the a"
21、 How can love is death and fear CuoGuYangHui. [深爱即是死罪又怎会怕挫骨扬灰。]
22、 Hey，you know what you are my first lady（嘿，你知道你是我的第一夫人）
23、 Only the sun can give me warm enough [ 只有太阳才能够给我足够的温暖 ]
24、 Feeling What I'm Feeling No apology Cause Boy I Know What I Believe In And It's You And Me
25、 cy 香飘飘，长智力，妈妈再也不用担心我的口臭啦 。
26、 I want you to travel around the world
27、 "In this world, don't rely too much on others, because even your shadow will leave you in the darknes"
28、 "Cry, Laugh, not because of the hypocrisy of the world, you become hypocritical.想哭就哭，想笑就笑，"
29、 You can be beautiful......
30、 "I want to cry, but my pride told me not to°"
31、 °。I will cherish every good to me。
32、 "Catch one's heart,never be apart。"
33、 That time is a beauty. [时光是美人]
34、 Rest in the Hope. 还有希望。
35、 "It doesn't matter who hurt you, or broke you down, what matters is who made you smile again."
36、 "Life isn't about finding yourself, life is about creating yourself."
37、 I wish I was a kid again，because skinned knees are easier to fix than broken hearts.
38、 "Many people do not need good-bye, because of just going by. Forget is that we give each other the be"
39、 Forget others’ faults by remembering your own. 想想自己的错，会忘却别人的过
40、 "What is said, however, by myself or by others matters little...to accept it without complaint, fear,"
41、 Happiness is good health and a bad memory. 幸福就是健康的身体加上糊涂的记性
42、 "When you develop unshakable self-confidence, your whole world will change for the better."
43、 Worry is like a rocking chair. It gives you something to do but it doesn’t get you anywhere.
44、 "Can't get is forever, forget was once. 到不了的就是永远， 忘不了的就是曾经。"
45、 The happiest people don't have the best of everything，they just make the best of everything.
46、 "If you could rewind your time, would you change your life? 如果时间可以倒流，你会重新选择你的生活么"
47、 I didn't change. You just never knew me 我并未改变，只是你从没真正了解过我。
48、 "Sometimes it's not the pain that makes you suffer, it's your own negative thought that makes things"
49、 "Has not been difficult, then does not have attains. \ 没有艰辛，便无所获"
50、 "You have only one heart, be true to it. 你只有一颗心，真诚待它。"
51、 "The less you open your heart to others, the more your heart suffers. 你的心越封闭，你需要承受的也就"
52、 "Always remember that, no matter how useless you feel, you're someone's reason to smile."
53、 "I’m actually a very nice person, until you piss me off. 我其实是个很好的人，直到你惹毛了我。"
54、 "Do what you say,say what you do. 做你说过的，说你能做的。"
55、 "Sometimes the words said by mouth, are not the ones meant by heart(闪点情话网)"
56、 "Stop trying to find a rewind. It's life, not a movie."
57、 You never get a second chance to make a first impression.
58、 Millions of failures are caused by people who do things not thoroughly. It happens that some people
59、 Youth is like smoking. Smoke in the dust. Ash fall.
60、 There’s no such thing as HAPPY ENDING. It’s just an unfinished story.
61、 "No matter how bad things get, something good is out there, just over the horizon."
62、 "Ordinary people merely think how they shall spend their time,a man of talent tries to use it."
63、 "Be true to your work , your word , and your friend."
64、 "All of life is an act of letting go,but what hurts the most is not taking a moment to say goodbye."
65、 A contented mind is the greatest blessing a man can enjoy in this world.
66、 "Be nice to people on the way up, because you'll need them on your way down."
67、 Do you know what’s so hard about being too strong? Nobody might care to ask if you are OK. 你知道
68、 "Because I like, so reluctantly, not so much why."
69、 "Sometimes life presents us situations that we cannot change, we must just face them and accept thing"
70、 "Everyone is happy. But, your happiness, often in the eyes of others."
71、 我的初恋女友.今天她生日.大家祝她生日快乐好吗 [ Pig Happy birthday ]
72、 "I always miss you ,so i miss you,so i miss you,so i miss you so much now."
73、 "When all people have abandoned you, please you hands, because only God didn't give you up"
74、 Only the sun can give me warm enough [ 只有太阳才能够给我足够的温暖 ]
75、 "Each class of 40 minutes, more than my life long!——每堂课的40分钟，比我的生命还漫长！"
76、 After the teacher's expression is to sign our learning!——老师的表情是能预兆我们以后的学习的！
77、 Please love me to the end of time。(请爱我到时光尽头。）
78、 "A good friend will not be jealous of your success, don't care about your failure"
79、 让未来到来，让过去过去。
80、 After many years in my side also is you { 多年后在我身边的 还会是你吗 }
81、 "You live in my heart for so long, unexpectedly don't understand my heart ."
82、 There is no remedy for love but to love more. 治疗爱的创伤唯有加倍地去爱。
83、 "I will cherish every good to me, ，，，"
84、 One of the reasons I was put on this earth was for our paths to cross.
85、 "bye, my love"
86、 I only came to get soy sauce.
87、 三个人的友情没有几个人熬的过
88、 you are the apple of my eye
89、 "我不是boss,没有超大的house,如果送你rose,可不可以给我chance."
90、 If this is love.
91、 Sometimes there is no way out exlept to say goodbye.[有时候，除了说再见，别无选择]
92、 "I love you, really don't suit you say 我爱你，真不合适你说出来"
93、 Ghost town dreams空城旧梦
94、 "Promise, sometimes, is what a cheater said to a fool. 承诺，有时候，就是一个骗子说给一个傻子听的"
95、 [ 若我投身火海你会奋不顾身地去救我还是隔岸观火去笑我 ]
96、 you always like a beautiful betterfly in my heart.
http://m.myl5520.com/gerenjianli/125478.html