华理vb实验报告
华理vb实验报告
篇一：华理物化实验报告
篇一：物化实验下实验报告最终
物理化学实验报告
姓名：郑晨光学号： XX041467
实验名称：最大气泡压力法测定溶液的表面张力
专业：13化学行知班班级：指导教师：邬冰评分：实验目录
实验 10 电导法测定水溶性表面活性剂的临界胶束浓度 .................... 3 实验 11 黏度法测定水溶性高聚物相对分子质量 .. (8)
实验12 最大气泡压力法测定溶液的表面张力 ................................... 14 实验 13 丙酮碘化反应的速率方程 ................................................ ...... 23 实验14 蔗糖水解反应速率常数的测定...............................................
28 实验15 乙酸乙酯皂化反应速率常数测定 ........................................... 32 实验16 离子迁移数的测定—希托夫法...............................................
36 实验17 电势—ph曲线的测
定 ................................................ ............. 40 实验18 电池电动势的测定及其应用 .................................................
46 实验 19 碳钢在碳酸氢铵溶液中极化曲线的测定 ............................ 51 实验20 溶液吸附法测定固体比表面积...............................................
57 实验 21 溶液法测定极性分
子的偶极矩 (62)
实验 10 电导法测定水溶性表面活性剂的临界胶束浓度
一、实验目的
1.用电导法测定十二烷基硫酸钠的临界胶束浓度.
2.了解表面活性剂的特性及胶束形成原理.
3.掌握dds-307型电导率仪的使用方法. 二、实验原理
具有明显―两亲‖性质的分子，既含有亲油的足够长的(大于10～12个碳原子)烃基，又含有亲水的极性基团(通常是离子化的)。由这一类分子组成的物质称为表面活性剂，如肥皂和各种合成洗涤剂等。表面活性剂分子都是由极性部分和非极性部分组成的，若按离子的类型分类，可分为三大类:(1)阴离子型表面活性剂，如羧酸盐[肥皂，c17h35coona]，
烷基硫酸盐[十二烷基硫酸钠，ch3(ch2)11so4na]，烷基磺酸盐[十二烷基苯磺酸钠，ch3(ch2)11c8h5so3na]等;(2)阳离子型表面活性剂，多为胺盐，如十二烷基二甲基叔胺[rn(ch3)2hcl]和十二烷基二甲基氯化胺[rn(ch3)cl];(3)非离子型表面活性基，如聚氧乙烯类[r-o-(ch2ch2o-)n-h]。表面活性剂进入水中，在低浓度时呈分子状态，并且三三两两地把亲油基团靠拢而分散在水中。当溶液浓度加大到一定程度时，许多表面活性物质的分子立刻结合成很大的集团，形成―胶束‖。以胶束形式存在于水中的表面活性物质是比较稳定的。表面活性物质在水中形成胶束所需的最低浓度称为临界胶束浓度(critical micelle concentration)，以cmc 表示。在cmc点上，由于溶液的结构改变导致其物理及化学性质(如表面张力、电导、渗透压、浊度、光学性质等)同浓度的关系曲线出现明显的转折，如图1所示。这个现象是测定cmc的实验依据，也是表面活性剂的一个重要特征。
这种特征行为可用生成分子聚集体或胶束来说明，如图2所示，当表面活性剂溶于水中后，不但定向地吸附在水溶液表面，而且达到一定浓度时还会在溶液中发生定向排列而形成胶束，表面活性剂为了使自己成为溶液中的稳定分子，有可能采取的两种途径：一是把亲水基留在水中，亲油基向油相或空气；二是让表面活性剂的亲油基团相互靠在一起，以减少亲油基与水的接触面积。前者就是表面活性剂分子吸
附在界面上，其结果是降低界面张力，形成定向排列的单分子膜，后者就形成了胶束。由于胶束的亲水基方向朝外，与水分子相互吸
引，使表面活性剂能稳定地溶入水中。
随着表面活性剂在溶液中浓度的增长，球形胶束还有可能转变成棒型胶束，以至层状胶束，如图3，后者可用来制作液晶，它具有各向异性的性质。
本实验利用dds-307型电导率仪测定不同浓度的十二烷基硫酸钠水溶液的电导率值(也可换算成摩尔电导率)，并作电导率(或摩尔电导率)与浓度的关系图，从图中的转折点即可求得临界胶束浓度。三、仪器和试剂
dds-307型电导率仪(见图4) 1台恒温水浴电导电极容量瓶(100ml)
1套 1支 12只
十二烷基硫酸钠(0.02mol·dm-3) 蒸馏水四、实验步骤
1. 取适量十二烷基硫酸钠在80℃干燥3小时，用电导水准确配制成0.020mol·dm-3的原始溶液。(此项工作已由实验室完成)
2. 开通电导率仪和恒温水浴的电源预热10 min。调节恒温水浴温度至25℃。
3. 用蒸馏水分别准确配制0.002，0.004，0.006，0.007，
0.008，0.009，0.010，0.012，0.014，0.016mol·dm-3的十二烷基硫酸钠溶液各100ml。
5. 实验结束后用蒸馏水洗净试管和电极，并且测量所用水的电导率。五.数据记录与处理
1.将实验所测数据填入表1中。
2.作电导率?与浓度c 关系图，从转折点找出临界胶束浓度cmc。
3.文献值： 40℃时c12h25so4na的cmc为8.7×10-3.mol.dm-3篇二：华理物化期末华东理工大学XX～XX学年第一学期
01级《物理化学》（下）期终考试试题a卷 XX.1
一、概念题（20分）
1、在一定温度下，反应的反应速率既可表示为，也可表示为，则与的关系为：。
2、在温度t时，理想气体反应产物的速率方程可以写成，也可以写成，则与的关系为：。
3、链反应机理包括链产生、和三个基本步骤。
4、平动、转动和振动的能级间隔分别为、、，其中何者最大？。
5、是各微观状态相应微观量的统计平均值。（宏观力学量、宏观非力学量）
6、若在恒定的温度下，将一独立子系统的体积增大，则系统的微观状态数。（增多、不变、减少）
7、能量标度的零点设在基态能级上的子配分函数的定
义是 = 。
8、在温度t时，纯水的表面积为as，表面张力为，按照gibbs模型水的表面吉氏函数 g = 。
9、煤油能在洁净的玻璃表面铺展开来。可见煤油与玻璃的粘附功wa 煤油本身的结合功wc。（大于、等于、小于）
10、兰缪尔吸附等温式于化学吸附。（适用、不适用）
11、乙醇能在其水溶液表面产生正吸附，则溶液表面张力
随乙醇浓度c的变化率 0。（>、=、12、离子强度的定义是i = 。
13、电解质在溶液中电离为离子：，溶液的电中性条件为。（对、错）
14、cacl2溶液的离子平均活度与它的质量摩尔浓度b、离子平均活度因子之间的关系为。
15、德拜-休克尔极限公式的适用条件是。
16、原电池放电时，对外输出电功并同时放热，适用于此过程的可逆性判断为 . 。
17、在电池电动势的测定中常使用盐桥，它的作用是。
18、在任何温度下，标准氢电极的电极反应的电势都为零。（对、错）
19、氯化银电极也可表示为银电极，两电极的电极反应的电势。（相同、不相同）
二、（16分）
1、某药物a在保存过程中发生分解反应，当其分解掉30%时即为失效。实验测得50℃和70℃时a分解的速率系数分别为和。试据此估算该药物在60℃下的保存期为多少小时？
2、气相分解反应的机理为：
其中no3和no为活泼的中间物，试用恒稳态处理法导出分解的速率方程。
三、（12分）
已知某分子的振动能级间隔，玻耳兹曼常数。试计算：
(1) 298 k时，某一能级与其相邻较低能级上的分子数之比。
(2) 若振动能级间隔为，温度仍为298 k，再做与 (1) 同样的计算。
(3) 由 (1) 和 (2) 的计算结果得出什么结论？
四、（14分）
在273.15 k时测定chcl3 (g)在活性炭上的吸附作用。当chcl3 (g) 的平衡压力为13.375kpa及吸附达饱和时，每克活性炭吸附chcl3 (g) 的量分别为82.5 cm3 (stp) 和93.8cm3 (stp)。设此吸附服从兰缪尔吸附等温式。试求：
(1) 兰缪尔吸附等温式中的吸附系数b；
(2) chcl3(g) 的平衡压力为 6.667kpa时的吸附量v
(stp)。
(3) 试写出兰缪尔吸附等温式的直线化形式。
五、（10分）
25℃纯水的电导率为，hcl，naoh和nacl的无限稀释摩尔电导率分别为0.04262，0.02484和0.01265 。试求25℃水的离子积。
六、（12分）
计算由nacl，cuso4和lacl3各0.025 mol溶于1 kg 水时所形成溶液的离子强度，并用德拜-休克尔极限公式计算溶液中nacl在25℃时的离子平均活度因子。（德拜-休克尔极限公式中的常数）
七、（16分）
已知25℃时电池的电池反应的电势为1.1566 v，，。
(1) 写出该电池的电极反应和电池反应。
(2) 求 zncl2溶液的离子平均活度，离子平均活度因子以及zncl2作为整体的活度。
(3) 若有1 mol zn进行电池反应，电池最多可输出多少电功？
(4) 已知agcl的溶度积，试求。
华东理工大学 XX~XX学年第一学期
《物理化学》（下）期终试卷 b卷
一、概念题（20分）
1．反应a→p，如a反应掉3/4所需时间恰是它反应掉1/2所需时间的2倍，则该反应为反应。（零级，一级，二级，三级）
2．质量作用定律适用于复合反应。（对，错）
3．连串反应的最主要的特点是。
4. 某化学反应，其，能否采用催化剂使它在恒温恒压和只做体积功的条件下进行？（能，否）采用输入电能的方法是否有可能使它进行？.
（是，否）
5. 一般来说，属于热运动的微观粒子运动形式为；（平动，转动，振动，电子运动，核运动）属于非热运动的微观粒子运动形式为。（平动，转动，振动，电子运动，核运动）
6. 在含有大量粒子的系统中，最概然分布代表了一切可能的分布，因此。
（对，错）
7．液体滴在固体表面上，形成下图中的两种状态，请分别在图中画出接触角。
8．按照吉布斯的界面模型，界面相的热力学基本方程：中哪一项应等于零？。
9．兰缪尔吸附等温式适用于分子在固体表面的（单分子层，多分子层）
10. 根据吉布斯等温方程，若某溶质的，则其单位界
面吸附量。（>，=，12．浓差电池中发生的变化是变化。（物理、化学）
13. 科尔劳施公式的适用范围为
二、
n2o(g)的热分解反应2n2o(g)→2n2(g)+o2(g)，在一定温度下，反应的半衰期与初始浓度成反比。在694°c，n2o(g)的初始浓度为3.92×104pa时，半衰期为1520s；在757°c，初始浓度为4.80×104pa时，半衰期为212s。
(1) 试计算694°c和757°c时反应的速率系数（用表示）；
(2) 试求反应的活化能和指前因子。
三、
碳的放射性同位素14c在自然界树木中的分布基本保持为总碳量的。某考古队在一山洞中发现一些古代树木燃烧留下的灰烬，经分析14c的含量为总碳量的，已知14c的半衰期为5700年，试估算这灰烬距今已有多少年。（注：放射性同位素的蜕变为一级反应）
四、
25°c时，水的表面张力为0.0727n·m-1，水银的表面张力为0.483 n·m-1，水银和水的界面张力为0.415 n·m-1。请通过计算判断水能否在水银表面上铺展，能否润湿水银。五、
25°c时乙醇水溶液的表面张力随乙醇浓度c的变化关系为：
试计算25°c乙醇溶液的浓度分别为0.1 mol·dm-3和0.5 mol·dm-3时，乙醇的单位界面过剩量。六、
298k时，下列电池的电池反应电势e为1.228v
已知h2o(l)的标准摩尔生成焓。
(1) 试写出该电池的电极反应和电池反应；
(2) 试求该电池反应电势的温度系数；
(3) 试求该电池在273k时的电池反应的电势。设反应焓在该温度范围内为常数。七、
298.15k时测得饱和agcl水溶液的电导率为 2.68×10-4s·m-1 ，配制此溶液的水的电导率为0.8600×10-4s·m-1。已知298.15k时，agno3、hcl和hno3的无限稀释摩尔电导率分别为
1.330×10-2，4.260×10-2和4.210×10-2s·m2·mol-1。试计算298.15 k时agcl在水中的溶解度和agcl的溶度积。
7289
华东理工大学 XX~XX学年第一学期
《物理化学》（下）期终试卷 a卷
一、概念题（20分）
1．质量作用定律适用于复合反应。（对，错）
2．反应a→p，如a反应掉3/4所需时间恰是它反应
掉1/2所需时间的2倍，则该反应为反应。（零级，一级，二级，三级）
3．某化学反应，其，能否采用催化剂使它在恒温恒压和只做体积功的条件下进行？（能，
否）采用输入电能的方法是否有可能使它进行？.（是，否）
4. 连串反应的最主要的特点是。
5. 在含有大量粒子的系统中，最概然分布代表了一切可能的分布，因此。（对，错）
6. 一般来说，属于热运动的微观粒子运动形式为；（平动，转动，振动，电子运动，核运动）属于非热运动的微观粒子运动形式为。（平动，转动，振动，电子运动，核运动）7．按照吉布斯的界面模型，界面相的热力学基本方程：中哪一项应等于零？
8．液体滴在固体表面上，形成下图中的两种状态，请分别在图中画出接触角。
9．根据吉布斯等温方程，若某溶质的，则其单位界面吸附量 0。
（>，=，10.兰缪尔吸附等温式适用于分子在固体表面的吸附。（单分子层，多分子层）
11．科尔劳施公式的适用范围为。
12．电池反应的电势e 与摩尔反应吉布斯函数的关系
为 e = ；电池反应的标准电势与反应的标准平衡常数的关系为。
13.浓差电池中发生的变化是变化。（物理、化学）
二、
碳的放射性同位素14c在自然界树木中的分布基本保持为总碳量的。某考古队在一山洞中发现一些古代树木燃烧留下的灰烬，经分析14c的含量为总碳量的，已知14c的半衰期为5700年，试估算这灰烬距今已有多少年。（注：放射性同位素的蜕变为一级反应）
三、
n2o(g)的热分解反应2n2o(g)→2n2(g)+o2(g)，在一定温度下，反应的半衰期与初始浓度成反比。在694°c，n2o(g)的初始浓度为3.92×104pa时，半衰期为1520s；在757°c，初始浓度为4.80×104pa时，半衰期为212s。
(1) 试计算694°c和757°c时反应的速率系数（用表示）；
(2) 试求反应的活化能和指前因子。
四、
25°c时乙醇水溶液的表面张力随乙醇浓度c的变化关系为：
试计算25°c乙醇溶液的浓度分别为0.1 mol·dm-3和0.5 mol·dm-3时，乙醇的单位界面过剩量。
五、
25°c时，水的表面张力为0.0727n·m-1，水银的表面张力为0.483 n·m-1，水银和水的界面张力为0.415 n·m-1。请通过计算判断水能否在水银表面上铺展，能否润湿水银。六、
298.15k时测得饱和agcl水溶液的电导率为 2.68×10-4s·m-1 ，配制此溶液的水的电导率为0.8600×10-4s·m-1。已知298.15k时，agno3、hcl和hno3的无限稀释摩尔电导率分别为
1.330×10-2，4.260×10-2和4.210×10-2s·m2·mol-1。试计算298.15 k时agcl在水中的溶解度和agcl的溶度积。七、
298k时，下列电池的电池反应电势e为1.228v
已知h2o(l)的标准摩尔生成焓。
(1) 试写出该电池的电极反应和电池反应；
(2) 试求该电池反应电势的温度系数；
(3) 试求该电池在273k时的电池反应的电势。设反应焓在该温度范围内为常数。华东理工大学XX–XX学年第一学期
《物理化学》课程期末考试试卷 bXX.12
篇二：华理大物实验报告
1实验名称电桥法测中、低值电阻
一.目的和要求
1.掌握用平衡电桥法测量电阻的原理和方法;
2.学会自搭电桥，且用交换法测量电阻来减小和修正系统误差;
3.学会使用QJ-23型惠斯登电桥测量中值电阻的方法;
4.学会使用QJ-42型凯尔文双臂电桥测量低值电阻的方法;
二.实验原理
直流平衡电桥的基本电路如下图所示。
图中RA,RB称为比率臂，Rs为可调的标准电阻，称为比较臂，Rx为待测电阻。在电路的对角线（称为桥路）接点BC之间接入直流检流计，作为平衡指示器，用以比较这两点的电位。调节Rs的大小，当检流计指零时，B，C两点电位相等UAC?UAB；UCD?UBD ，即IARA?IBRB；IXRX?ISRS。因为检流计中无电流，所以IA?IX，IB?IS，得到电桥平衡条件 Rx?
三.实验仪器
直流电源，检流计，可变电阻箱，待测电阻，元器件插座板，QJ24a型惠斯登直流电桥，QJ42型凯尔文双臂电桥，四端接线箱，螺旋测微计
四.实验方法
1.按实验原理图接好电路；
2.根据先粗调后细调的原则，用反向逐次逼近法调节，使电桥逐步趋向平衡。在调节过程中，先接上高值电阻Rm，
防止过大电流损坏检流计。当电桥接近平衡时，合上KG以提高桥路的灵敏度，进一步细调；
3.用箱式惠斯登电桥测量电阻时，所选取的比例臂应使有效数字最多。
RA
Rs。 RB
五.数据记录与分析
?RS仪＝?(0.001RS?0.002m)，其中RS是电阻箱示值，m是所用转盘个数，
?RS?
?
?RX?RX?所以RX2?297.8?0.1?，RX3?1995.4?0.8?
2.不同比例臂对测量结果的影响
3.用箱式惠斯登电桥测量电阻
4.用开尔文电桥测量低值电阻
铜棒平均直径d＝3.975mm（多次测量取平均）（末读数－初读数）
电阻R?
?
S
L?
2
4?4?
Lk??0.00609，，由下图中的拟合直线得出斜率?d2?d2 则电阻率??
?dk
4
?
3.142?0.00609?3.975?10
4
?
?32
?
?7.56?10?8??m
六.分析讨论题
当惠斯登电桥平衡后，若互换电源与检流计位置，电桥是否仍保持平衡？试说明之。答：电桥仍保持平衡。在互换电源与检流计位置前，电桥平衡条件为Rx?
RA
Rs，互RB
换位置后的电桥线路如下。在新桥路内，若Ig?0，检流计无电流通过，A，D两点电位相等。则有UCA?UCD,UAB?UDB;IA?IB,Ix?Is，因而有IARA?IxRx;IBRB?IsRs的关系。这样RA/RB?Rx/Rs。即Rx?
RA
Rs就是互换位置前的平衡条件。所以电桥仍保持RB
2实验名称静电场测绘
一.目的与要求
1.学习用模拟法测绘静电场的分布。
2.加强对电场强度和电势的概念。
二.实验原理
由于静电实验条件苛刻且不稳定，而稳恒电流的电场和相应的静电场的空间是一致的，在一定的条件下，可以用稳恒电流的电场来模拟测绘静电场。
静电场与稳恒电流场的对应关系为
静电场稳恒电流场
导体上的电荷±Q 极间电流I
?电场强度E
介电常数?
?
电场强度E
电导率?
??DE电位移=?
无荷区?E?dS?0 电势分布?U?0
2
EJ电流密度=?
无源区?E?dS?0 电势分布?U?0
2
根据上表中的对应关系可知，要想在实验上用稳恒电流场来模拟静电场，需要满足下面三个条件：
⑴电极系统与导体几何形状相同或相似。⑵导电质与电介质分布规律相同或相似。
⑶电极的电导率远大于导电质的电导率，以保证电极表面为等势面。以无限长同轴柱状导体间的电场为例，来讨论二者的等效性。设真空静电场中圆柱导体A的半径为a，电势为Ua；柱面导体B的内径为b，且B接地。导体单位长度带电±?（即线密度）。根据高斯定理，在导体A、B之间与中心轴距离为r的任意一点的电场大小为
E?
?
(1) 2??0r
电势为 U??导体A的电势可表示为
?b
ln （2） 2??0r
Ua?
?b
ln（3） 2??0a
bb
ln（4） ra1b
此时的场强为 Er??Ualn （5）
ra
将A、B间充以电阻率为ρ、厚度为?的均匀导电质，不改变其几何条件及A、B的电位，则在A、B之间将形成稳恒电流场。设场中距中心线r点处的电势为U?，在r处宽度为dr的
drdr??导电质环的电阻为 dR?? （6） s2?r?b?b
ln从r到b的导电质的电阻为 Rr??dR?（7）
r2??r?b
ln 电极A、B间导电质的总电阻为 R?（8） 2??a
于是在距中心r处Ur?Ualn由于A、B间为稳恒电流场，则
U?Rr
（9） ?
UaR
bb
ln （10） ra
即 U??Ualn
比较（10）和（4）式可知，电流场中的电势分布与静
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运行结果。
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窗体
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：
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所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
VB实验报告答案
福建农林大学计算机与信息学院(计算机公共基础二级课程) 实验报告 课程名称：Visual Basic 程序设计 姓名：邹丽平 学院: 食品科学学院 专业：食品科学与工程 年级：2010级 学号：102258016001 指导老师：黄红兵 职称：讲师 2012 年5 月20 日
实验项目列表
福建农林大学计算机与信息学院实验报告 学院：食品科学学院专业：食品科学与工程年级： 2010级 姓名：邹丽平学号： 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间： 2012.3.5 指导教师签字：黄红兵成绩： 报告退发（订正、重做） 实验一 VB环境和简单应用程序设计 一、实验目的和要求 1.了解Visual Basic系统对计算机软件、硬件的要求。 2.掌握启动与退出Visual Basic的方法。 3.熟悉visual basic的集成开发环境（IDE）。 4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。 5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。 二、实验内容 1.启动Visual Basic 6.0，熟悉其集成开发环境。 2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签（ Label1和Label2），Label1的字体为隶书，并且其能根据文本大小自动调整尺寸，Label2的字型为倾斜；然后再设计一个初始文本为空的文本框Text1. 图1-1 运行界面 3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮（C1、C2和C3）。运行时，如果单击“禁止用C3”按钮，则C3按钮无效（如图10-2所示）；如果单击“允许用C3”按钮，则C3按钮有效。 图1-2 运行界面 4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框（Text1和
大一《VB面向对象程序设计》作业及实验报告书_答案
实验一 一 DDBAB,CC(D)DDC,ADDCA 二 windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 代码 双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹 属性 方法 font load 对象 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 实验三 一
A(BC)(BC)AA,A(BCD)DBB,B 二 3，4，5，6，8，10，11，12，14，15，16三 abs(x+y) (3+x*y)^2 (-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四 int(rnd*71+20) x*y<0 x mod 3=0 or xmod 7=0 x>=10 and x<20 x>="A" and x<="Z" left(s,3) 或者,mid(s,1,3) 实验四 一 CDCDA,DBBAC 二 (1) 48.71E-01,-4.8712 (2) 关系，逻辑，数值 (3) 900，100，mid(a,2,1),c (4) m 1,2,3 print m & "月是第二季度" end select 三 (1) x=4 y=13 (2) 10 实验五 一 BCBAC 二 （1）for x=2 to 10 s*(1-1/x) (2) t<1E-6 (3) j
郑州大学VB实验报告书 参考 答案
郑州大学VB实验报告书参考答案。。 以下内容均来自百度文库，所以仅供参考。。 不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。。 实验一 一、选择题 DDBAB,C(CD)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 编写代码 双击任意控件或右健快捷菜单选“代码窗口” vb的安装文件夹 属性 方法 font load 对象 三、编程
1-1 Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub 1-2 Private Sub Command2_Click() For i = 100 To 110 Print Sqr(i) Next i End Sub 1-3（基本设置在属性窗口完成！）Private Sub Command3_Click() Print "郑州大学在前进!" End Sub 1-4（基本设置在属性窗口完成！）Private Sub Command4_Click() Label1 = "蓝天、白云、绿水、青山" End Sub 实验二 一
BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 三 2-1 Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub 2-2 Private Sub Command1_Click() Picture1.Visible = True
vb实验报告答案全(2)(1)
实验一问答题： 1、答： 常见的有visual Basic、C++、Java、SQL。 用途特点：（参考课本4-5页） 2、答： 代码是一行或几行命令。 程序是针对某个任务编写的有序代码的集合。 软件是程序和文档的集合。 它们的关系是：代码 < 程序 < 软件 3、答： 面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。 4、答： 参考课本第9页 5、答： 类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。 对象——是类的一个实例，继承了类的属性、方法。 控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。
属性——是对象的性质，用来描述和反应对象特征的参数。 事件——响应对象的动作，它发生在用户与程序交互时。如单击控件、鼠标移动、键盘按下。 过程——指附在该对象上的程序代码，是事件的处理程序。 6、答： 参考课本12页到17页。 实验二问答题： 1、答 通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。 2、答 标签label是用来显示信息的，不具有输入功能。属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。 文本框用来输入、输出数据，编辑文本。属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。 3、答 结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。4、答 要保存2次，分别是工程文件.vbp和窗体文件.frm。
VB实验报告(含答案)
VB实验报告(含答案) 实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境与创建一个简单的VB程序 一.实验目的: 1、了解VB系统对计算机软件、硬件的要求。 2、掌握启动与退出VB的方法。 3、了解与使用VB集成开发环境各窗口、菜单的一般功能。 4、熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5、了解文本框、标签框、命令按钮的构造及其属性、事件与方法。 二.实验内容: 1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签与两个命令按钮编一程序,并把命 令按钮分别设置为”显示”与”清除”。程序运行后,单击”显示”按钮,在文本框中输出一行信息; 单击”清除”按钮,则清除文本框中的内容,运行界面如图1、1所示。 图1、1 实验1-1 运行界面 三.实验结果:对象属性设置 对象属性属性值说明 caption 我的第一个vb程序窗体 Form1 caption 请输入姓名标签 Label1 text ““文本框 Text1 caption 显示命令按钮Command1 caption 清除命令按钮Command2 四.实验思考: 1、标签label控件设置的属性代码有哪些？ Label1、Caption=“请输入姓名” Label1、fontsize=24 Label1、fontbold=True 2、两个按钮所使用的就是什么事件？代码分别就是什么？ Private Sub Command1_Click() Text1、text=“姓名” End Sub
实验二简单程序设计数据类型及常用内部函数的简单应用 一.实验目的: 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、温度转换 对象属性属性值说明 Form1 Caption Inputbox与msgbox应用窗体 Command1 Caption 温度转换命令按钮 2、三种除法运算(/ 、\、Mod)做计算
VB实验四 实验报告 - 2018
实验报告四 实验目的 （1）掌握Function过程和Sub过程的定义与调用 （2）理解参数按址传递和按值传递的本质 （3）理解变量和过程的作用域 （4）能熟练运用Function过程和Sub过程解决实际问题、简化程序 实验内容 【实验1】编写Function函数程序实现计算n！。程序界面如下图所示。（5分） 掌握函数过程的定义及使用 实验结果： 【实验1 代码】 Private Sub Command1_Click() n = Val(T ext1.T ext) T ext2.T ext = jiecheng(n) End Sub Private Function jiecheng(a) t = 1 For i = 1 T o a t = t * i Next i
jiecheng = t End Function Private Sub Command2_Click() End End Sub 【实验1 典型结果】 【实验2】编写Sub子函数过程实现计算n！。程序界面同上题。（5分）掌握Sub子过程的定义及使用 实验结果： 【实验2 代码】 Private Sub Command1_Click()
n = Val(T ext1.T ext) Call jiecheng(n, t) T ext2.T ext = t End Sub Sub jiecheng(a, t) t = 1 For j = 1 T o a t = t * j Next j End Sub Private Sub Command2_Click() End End Sub 【实验2 典型结果】
VB实验报告
台州学院 《VB程序设计》实验报告 实验七：常用控件 班级：10物理2 学号： 姓名： 实验日期：2011 一、实验目的和要求 1．掌握基本控件的重要属性、事件； 2．熟练掌握在窗体上建立上述控件的操作方法； 3．熟练掌握事件过程代码的编写； 4．初步掌握建立基于图形界面的应用程序的过程。 二、实验主要仪器和设备 计算机一台，WindowsXP操作系统，VisualBasic环境。 三、实验内容
实验7.1设计一个字体修饰的程序，界面如图7-1所示。要求：框架1中有两个复选框，可以选择粗体和斜体对标签中的文字进行修饰；框架2中有两个单选按钮，可以选择宋体或楷体对标签中的文字进行修饰；标签Label1的文字内容为“VisualBasic程序设计”，宋体，常规，三号；文字对齐方式为居中。 图7-1字体修饰 实验7.2设计一个点菜的程序，界面如图7-2所示。要求：框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来； 图7-2点菜 实验7.3设计一密码修改程序，要求。 1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“admin”，则继续执行步骤2；否则弹出消息框，提示用户出 错，并让用户重新输入。 2）比较“新密码(N)”和“新密码(S)”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。 3）当单击“取消”按钮后，程序终止执行。 图7-3密码修改
vb实验报告
一、实验目的及要求 通过本实验使学生：理解条件表达式的含义及作用；掌握IF语句的使用方法；掌握多分支语句Select…Case…End Select的使用方法和使用特点；掌握选择结构常见问题解法，能够编写简单的基于选择结构的应用程序解决实际问题；掌握选择性控件（单选按钮OptionButton和复选框CheckBox）的使用。 二、实验设备及环境 WindowsXp Visual basic6.0 三、实验内容 1.已知学号由9位数组成，如：032343001，其中前2位表示年级，第5位表示学生类型（类型规定如下：2-博士，3-硕士，4-本科，5-专科）。设计程序，从文本框输入学号，在另外两个文本框中显示该生年级及学生类型。 2.设计对输入字符进行转换的程序。要求在文本框中每输入一个字符就进行判断和转换，转换结果显示在另一文本框中。（转换规则为：将其中小写字母转换为大写，大写字母转换为小写，其余非字母字符转换为“*”）。 3.设计程序，利用3个复选框代表红、绿、蓝三颜色值，当选中复选框时表示颜色值为255，不选中为0，把通过RGB函数调配的颜色作为一个标签的背景色。 四、实验步骤 1.题1 （1）用户界面设计 （2）关键程序代码 Private Sub Command1_Click() Dim t As String, p As String t = Mid(Text1.Text, 5, 1) Select Case t Case "2" p = "博士生" Case "3" p = "硕士生" Case "4" p = "本科生" Case "5"
p = "专科生" Case Else p = "无效学号" End Select Text2.Text = Left(Text1.Text, 2) + "级" Text3.Text = p End Sub （3）运行结果 2 （1）用户界面设计 （2）关键程序代码Private Sub Text1_KeyPress(KeyAscii As Integer) （3）Dim x As String （4）x = Chr(KeyAscii) （5）Select Case x （6）Case "a" To "z" （7）Text2.Text = Text2.Text + UCase(x) （8）Case "A" To "Z" （9）Text2.Text = Text2.Text + LCase(x)
vb实验报告09上课6
试验报告（6） 院（系）：课程名称：日期：
Select Case x Case 1, 3 Print "分支1" Case Is > 4 Print "分支2" Case Else Print "else 分支'" End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是else 分支_。 3、下列语句正确的是( C ) A.If A ≠B Then Print″A不等于B″ B.If A < >B Then Printf″A不等于B″ C.If A < >B Then Print″A不等于B″ D.If A ≠B Print″A不等于B″ 4、计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是( A ) A.If x>=y Then z=x:z=y B.If x>=y Then z=x Else z=y C.z=y:If x>=y Then z=x D.If x<=y Then z=y Else z=x 5、有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click() x=Val(Text1.Text) If__(x mod 4=1) and (x mod 5=2)__Then Print x Else Text1.Text=″″ _Text1.Setfocus_________ End If End Sub 6、下列程序的功能是：当x<50时，y=0.8x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。 Private Sub Command1_Click()
VB编程实验报告答案 完整版
实验一： 一、选择 1.D 2.D 3.B 4.A 5.B 6.C 7.CD 8.D 9.D 10. BC 11. A 12.D 13. D 14. C 15. A 二、填空 1.windows 2. 中断 3.工具箱 4.代码 5.分类 6.form2.show 7. 出现语法错误 8. 错 9. 事件10. 面向对象11.工程文件结构12. 工程13. 设计程序代码14. 双击窗体15. C:\Program Files\Microsoft Visual Studio\VB98 或者VB的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象 实验二： 一、选择 1.B 2.C 3. B 4.C 5.C 6.C 7.B 8.B 9.D 10. A 11. C 12.C 13. C 14. B 15. A 16.C 17.B 18.D 19.C 20. C 二、填空 1. Form_Click() 2. Interval、5000 3..vbp .frm
4.left top Height、Width twip 5.picture 6.load 7. locked 8. font Alignment 9. GotFocus() LostFocus() 10. 属性窗口程序代码 实验三： 一、选择 1.A 2.BC 3.BC 4.A 5.A 6.A 7.BCD 8.D 9.B 10. B 11. B 二、判断题 不合法的变量：3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、 1、abs(x+y) 2. (3+x*y)^2 3. (-b+sqr(b^2-4*a*c))/(2*a) 4.sin(30*3.14/180)+exp(2) 四、 1. int(rnd* 71+20) 或int(rnd* 71)+20 2. x<0 and y>0 or x>0 and y<0 或者x*y<0 3. x mod 3=0 or x mod 7=0 或x/3=x\3 or x/7=x\7 4. x>=10 and x<20
郑州大学VB实验报告书 参考 答案
郑州大学VB实验报告书参考答案 以下内容均来自百度文库，所以仅供参考。。 不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。。 实验一 一、选择题 DDBAB,C(CD)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 编写代码 双击任意控件或右健快捷菜单选“代码窗口” vb的安装文件夹 属性 方法 font load 对象 三、编程
1-1 Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub 1-2 Private Sub Command2_Click() For i = 100 To 110 Print Sqr(i) Next i End Sub 1-3（基本设置在属性窗口完成！）Private Sub Command3_Click() Print "郑州大学在前进!" End Sub 1-4（基本设置在属性窗口完成！）Private Sub Command4_Click() Label1 = "蓝天、白云、绿水、青山" End Sub 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load
font,alignment gotfocus,lostfocus 属性窗口，代码 三 2-1 Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub 2-2 Private Sub Command1_Click() Picture1.Visible = True Picture1 = LoadPicture("C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Water lilies.jpg") End Sub Private Sub Command2_Click() Picture1.Visible = True Picture1 = LoadPicture("C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Winter.jpg") End Sub Private Sub Command3_Click() Picture1.Visible = False End Sub 2-3 Private Sub Command1_Click() Label3 = Text1 * Text2
大一vb的实验报告
大一vb的实验报告 篇一：VB实验报告一、实验目的和要求 1、掌握正确书写表达式、赋值语句的规则。 2、掌握InputBox与MsgBox的使用。 3、掌握Print方法和Format格式使用。 4、掌握单分支与双分支条件语句的使用。 5、掌握多分支条件语句的使用。 6、掌握For语句和Do语句的各种形式的使用。 7、掌握如何控制循环条件，防止死循环和不循环。 二、实验内容和原理 1、输入半径，计算圆周长和圆面积。 为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用IsNumeric函数；若有错，利用MsgBox 显示错误信息，通过SetFocus方法定位于出错的文本框处，重新输入；计算结果保留两位小数。 提示：使用Text1_KeyPress事件，按Enter键，返回参数“KeyAscii”的值为13表示输入结束。 2、随机产生三个整数，按从小到大的顺序显示。 3、计算π的近似值，π的计算公式为： ?2n?224262 π=2×××…× 2n-1?2n+11?33?55?7 注意：①、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？ ②、要防止大数相乘时结果溢出的问题，将变量类型改
为长整型或实数型。 三、主要仪器设备 计算机 四、实验结果与分析 实验界面： 1、输入半径，计算圆周长和圆面积。 程序： Private Sub Form_Activate Text1.Text = 输入半径值 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 圆面积，周长 Dim r r = Text1.Text Const PI = 3.14159 If KeyAscii = 13 Then Cls If IsNumeric(r) Then Print 当圆的半径为; r; 时： Print、随机产生三个整数，按从小到大的顺序显示。 程序：
大学VB实1答案 (2)
上海立信会计学院本科实验报告 班级：学号：姓名：指导教师： 系部：专业：实验时间： 实验4 循环结构 一、实验目的 1．掌握For语句的使用 2．掌握Do语句的各种形式的使用。 3．掌握如何控制循环条件，防止死循环或不循环。 二、实验要求 1．在C:\下建立子文件夹“VB实验4”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(41.vbp)、窗体文件(41.frm) 及可执行文件（41.exe），本实验中的第二题，需保存的文件有：工程文件(42.vbp)、窗体文件(42.frm) 及可执行文件（42.exe），其余实验依此类推。 2．撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、实验内容： 1.编一程序利用单循环结构显示如图4-1所示的界面。要求：循环体内显示的内容用String 函数来实现，找出循环控制变量与String函数内字符个数的关系：即String(2*i-1,Trim(Str(i)))。窗体显示字体默认、大小为小四，通过单击窗体触发程序运行。 图4-1 Private Sub Form_Click() For i = 1 To 9 Print Tab(15 - i); String(2 * i - 1, Trim(Str(i))) Next i End Sub 2.计算π的近似值，π的计算公式为：
)12()12()2(75653431222 222+?-???????????=n n n π，要求：单击按钮同时显示当n=10、100、1000时的结果，利用Format 函数保留5位小数。窗体中所有控件字体默认、大小为小四。效果如图4-2所示。 图4-2 Private Sub Command1_Click() pi = 2 For i = 1 To 10 pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) Next i Print " n=10 ∏近似值="; Format(pi, "0.00000") pi = 2 For i = 1 To 100 pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) Next i Print " n=100 ∏近似值="; Format(pi, "0.00000") pi = 2 For i = 1 To 1000 pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) Next i Print " n=1000 ∏近似值="; Format(pi, "0.00000") End Sub 3. 求Sn=a+aa+aaa+aaaa+…+aa …aaa(n 个a)，其中a 是一个由随机数产生的1～9（包括1、 9）中的一个正整数，n 是一个由随机数产生的4～9（包括4、9）中的一个正整数，产生随机数需使用Randomize 语句。例如，当a=2，n=5时，Sn=2+22+222+2222+22222。要求：单击窗体时，在窗体上逐个显示S 的结果，效果如图4-3所示。所有控件字体默认、大小为小四，窗体宽度设置为9000Twip 。