vb程序设计实验教程黄芬(vb程序设计实验教程答案高等教育出版社)
实验报告02 :VB程序设计基础,使用dim方法写出VB语句 定义X为整型变量
1、（1） Dim x As Integer '整型变量
Dim y As Long '长整型变量
Dim z As Single '单精度浮点型变量
Dim str As String '字符型变量
（2） Static sum As Integer '整形静态型变量
（3） Public f As Integer '整形全局变量
2、Integer(整型)数据的取值范围：-32768 ~ +32767
3 、 取出 x 的值，加1以后赋值给 x
可改写成: y = x
x = y + 1
4、 [-9,9]的随机整数 x = Int(19 * Rnd -9)
请参考采纳！谢谢！
VB高手进来帮下忙 好的追加分
1."X是小于105的非负数",用VB表达式表示正确的是(C 0=x and x105 ).
2.以下方法中，只有（D 代码中使用GetFocus）不能使对象获得焦点。
3.决定一个控件在窗体的位置，要使用（D Top , Left）属性。
4.以下函数中，不属于算术函数的是（B Str()）
5.布尔函数只有两种取值，它们是（D True 和 False ）
6.使用Print方法可以将信息输出到除（B 文本框）以外的对象上。
7.以下关于Sub过程的说法中，只有（B 一个Sub过程必须有一个 End Sub 语句）是正确的。
8.当程序运行时，系统自动执行启动窗体（A Load ）事件过程
9.若要使某文本框获得控制焦点，可使用的方法是（B SetFocus ）
10.下列的（B 文本框）控件不具备Caption属性
11.在程序中可以通过复选框和单选框的（B Value）属性来判断它们的当前状态
12.执行语句"Print Format（5459.478,"##,##0.00)"的正确输出结果是（ 5,459.48 ）
13.函数Len(Str(Val("111.1")))的值为（B 6）
14.Rnd函数不可能产生（B 1）值
15.VB中应用程序的开发主要是在（VB）设计器上完成的
16.由VB预先设置好的，能够被对象识别的动作称为（事件）
17.命令按钮最常见的事件是（click）
18.在用Public Private Dim 三种关键字声明的变量中，（Public）声明的变量作用域最大。
19.模块级变量声明使用关键字Dim或（public）
20.根据变量的定义位置和所使用的定义语句的不同，VB中的变量可以分为3类，即（局部） （模块级）和全局变量。
21.在3种不同类型的组合框中，只能选择而不能输入数据的组合框是（下拉式列表框）
22.列表框中的项目的序号是从（0）开始的
23.计时器事件之间的间隔通过（interval）属性来实现
24.(1)写出下列各函数的值
1. Int(-3.14159)=-4 2. Int(Abs(99-100)/2)=0
3. Fix(-5.2) =-5 4. Sqr(2^3) =2.82842712474619
5. Sgn(5*2-2*6)=-1 6. Right("vbName",4)= "Name"
7. Ucase("vbName")="VBNAME" 8. Val("10 5th")=105
9. Str("123.45")="123.45" 10. Len("vbName")=6
(2) 写出下列各表达式的值
1. 10=2*4 True 2. "ABCD""ABCEF" True
3. "ABC""ABC"""ABC true 4. 1312 Or Not 1519-2 true
5. 7 mod 3+3^3/4\5 2 6. 45 and 7=5 false
7. int(123.4567*100+0.5)/100 123.46 8. Len("VB程序设计教程")=8
25. ┏ a+b a5
n= ┫ b/a a=5
┗ 0 a5
用下面的程序试补全程序
Print Sub Command1_Click()
a=Val (Text1.Text)
b=Val (Text2.Text)
Selected Case a
Case is5
n=a+b
Case 5
n=b/a
Case else
n=0
End Select
Text3.Text=n
End Sub
vb怎么做不会呀，怎么弄呀？
1)养成良好的学习习惯
VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成.
(2)学习程序设计要注重理解一些重要的概念.
VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在程序入门阶段还是应该重视概念的学习.
3,学习VB程序设计的方法
(3)自己动手编写程序
程序设计入门阶段要经常自己动手编写程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高开发程序的规模.
(4)阅读,借签别人设计的好程序
多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计
能不能将程序修改完成更多的功能 则可以学到别人优秀的东西,帮助自己提高自身水平.
3,学习VB程序设计的方法
(5)
VB程序设计学习的重点
重点放在思路,算法,编程构思和程序实现上.
语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用.
学会利用计算机编程手段分析问题和解决问题.
(6)养成良好的编程习惯
强调可读性;变量要加注释;
程序构思要有说明;
学会如何调试程序;
对运行结果要做正确与否的分析.
3,学习VB程序设计的方法
学好VB程序设计的具体要求:
(1)课前预习,认真听课并作适当做笔记,课后要认真复习消化所学内容,完成作业.
(2)多写程序,注重实践
程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的.
只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容.只有当你在编写大量程序之后,才能获得真知灼见,感到运用自如.
动手能力的培养是这门课和以往课程最大的不同之处.
3,学习VB程序设计的方法
(3)上机调试程序应注意的几点:
上机前应认真把实验题在用纸上做一做(包括窗体界面设计,事件代码的编写等)
每次上机后应总结,把没有搞清楚的问题记录下来,请教老师或同学.
平时应多抽课余时间多上机调试程序.注意系统的提示信息,遇到问题多问几开为什么.
3,学习VB程序设计的方法
(4)保持良好的学习心态
要有自信,自强,积极主动学习.
克服畏难情绪,树立学好程序设计的信心
VB程序设计-利用随机函数产生80个10～99之间的随机整数
Private Sub Command1_Click()
Dim j%, k%, m%, n%, mArr(1 To 80), OArr(), EArr(), ZArr(), Q%, E%, tmP%, Z%, mSum%
Q = 1
E = 1
Z = 1
Print "80个随机整数："
For j = 1 To 80
Randomize
mArr(j) = Int(90 * Rnd + 10)
Print CStr(mArr(j)); Spc(2);
If j Mod 10 = 0 Then Print
Next j
For m = 1 To 79 '排序
For n = 80 To m + 1 Step -1
If mArr(n) mArr(n - 1) Then tmP = mArr(n): mArr(n) = mArr(n - 1): mArr(n - 1) = tmP
Next n
Next m
For m = 1 To 80 '奇偶分组
If mArr(m) Mod 2 = 1 Then
ReDim Preserve OArr(1 To Q)
OArr(Q) = mArr(m)
Q = Q + 1
Else
ReDim Preserve EArr(1 To E)
EArr(E) = mArr(m)
E = E + 1
End If
If zs(CInt(mArr(m))) = True Then '素数分组
ReDim Preserve ZArr(1 To Z)
ZArr(Z) = mArr(m)
mSum = mSum + ZArr(Z)
Z = Z + 1
End If
Next m
Print "偶数：" '在窗体输出
For m = 1 To UBound(EArr)
Print CStr(EArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print "奇数："
For m = 1 To UBound(OArr)
Print CStr(OArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print "素数："
For m = 1 To UBound(ZArr)
Print CStr(ZArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print "素数个数："; UBound(ZArr)
Print "素数之和："; mSum
End Sub
Private Function zs(x As Integer) As Boolean '素数判断子过程
Dim d%
If x = 2 Then zs = True: Exit Function
For d = 2 To Int(Sqr(x))
If x Mod d = 0 Then Exit For: zs = False
If d = Int(Sqr(x)) Then zs = True
Next
End Function