VB综合简单分析.docxVIP

VB程序设计基础Int）化：取不大于 x 的最大整数 Fix （X）函数是直接去掉小数部分 班级： 姓名： 正者：一样，负数不一样 Int(-1.5)=-2 一、写出下面表达式的值 ( 已知 A 的 Ascii 表达式 表达式值 Asc(B) 66 Chr(Asc(a)-32) A Len(abc123) 6 Mid(ab66dc,3,2) 66 Mid(66dc,1,1) 6 Abs(-16) 16 Sqr(Len(a123)) 2 Str(Sqr(16)) 4 内码为 65， a 的 Ascii 表达式 3\2 整除 3/2 2 Mod 5 17 Mod 5 6 Mod 3 Int(7/3) Int(-1.5) Asc(C)- Asc(A) 内码为 97) 表达式值 1 1.5 2 2 0 2 -2 2 ， Fix(-1.5)=-1 整除，去掉小数部分 功能和 Fix 函数一样 Int 向下取整 注意： Mid、 Chr、 Str 函数的计算结果为字符串类型 ，其值需要加双引号。但文本框和标签上显示的时候 都不需要双引号。 二、读程序 x = 1: y = 2 y = y+3 z = x+y 1、上面程序执行后， x = 1: y = 2 If x y Then y = y + 3 z = x + y 2、上面程序执行后， x = 1: y = 2 If x y Then y = y + 3 z = x + y End If 3、上面程序执行后， x = 1: y = 2 If x y Then y = y + 3 Else y = y + 2 z = x + y End If 4、上面程序执行后， x = 1: y = 2 For i = 1 To 3 y = y + 3 Next i z = x + y 5、上面程序执行后， z 的值是 6 z 的值是 3 z 的值是 0 z 的值是 5 z 的值是 12 桐乡一中 x = 1: y = 2 For i = 1 To 3 y = y + x Next i z = y+i 6、上面程序执行后， z 的值是 9 x = 1: y = 2 Do While y 6 y = y + 3 Loop z = x + y 7、上面程序执行后， z 的值是 9 x = 1: y = 2 Do While y 6 y = y + 3 x = x + 1 Loop z = x + y 8、上面程序执行后， z 的值是 11 Dim a(1 To 3) As Integer s = 0 a(1) = 2: a(2) = 6: a(3) = 4 For i = 1 To 3 s = s + a(i) Next i z = Int(Sqr(s)) 9、上面程序执行后， z 的值是 3 信息技术 课堂练习 第 1 页，共 2 页 循环语句b(i) 循环语句 b(i) 对应的值 Dim a(1 To 4) As Integer, p As Integer a(1) = 2: a(2) = 4: p = 2 Do While p = 3 a(p) = a(p) + a(p - 1) p = p + 1 a(p) = p Loop Text1.Text = Str(a(3)) 10、上面，文本框显示的内容是 9 Dim a(1 To 5) As Integer a(1) = 1: a(2) = 6: a(3) = 7: a(4) = 5 s= 0 s For i = 1 To 2 k = i For j = 4 To i + 1 Step -1 If a(j) a(k) Then k = j Next j s = s + a(k) Next i Text1.Text = Str(s) 11、上面，文本框显示的内容是 14 例如 : Dim a(1 to n) as Integer, a(i) 对应的值 a(1) 5 a(2) 9 a(3) -1 当 n=10 时，假设每个数组元素已经赋值如下： a(4) 12 a(5) 11 a(6) 32 a(7) -7 a(8) 2 a(9) 22 a(10) 3 8、补充程序代码，实现功能将数组