Vb程序填空操作要点.doc

Vb程序填空要点：一、程序代码书写注意事项：1输入程序代码时，不要把某个对象的某个事件过程代码写到另一个对象的另一个事件过程中去。2. 代码一律小写输入，标点符号采用英文标点符号，不能用中文（字符串”双引号内除外）2 一行一句3 一行多句：句与句之间用冒号“：”分隔4 一句多行：前一行末空一格再加下划线“_”回车另起一行5 采用缩进突出层次结构，一层缩进一个制表位二、将下列语句用vb语句代码表示：1在窗体form1中显示“江苏省昆山中学”：2在标签label1上显示“江苏省昆山中学”：3在文本框text1内显示“江苏省昆山中学”：4在窗体form1中显示x的值：5在标签label2上显示y的值：6在文本框text2内显示z的值：7将文本框text1内的文本内容存入变量x中：8在文本框text2内输入的数存入单精度实数变量y中：9在inputbox（）函数产生的输入框内输入一个数，将它存入整型变量z中：10随机产生一个10，100之间的整数，存入a中：11将a存入b： 将b存入a：12交换a、b两个变量中的数据：13A能被b整除：14A不能被b整除：15M是奇数：16N是偶数：17将A转换成小写字母：18将b转换成大写字母：19N是一个三位数，如何得到每位上的数字：注：一些固定格式:交换两个变量中保存的数据: m=_ : _= _ : _=m用文本框接收输入的数值型数据: x= val(text1.text)用inputbox接收输入的数值型数据: x=val(inputbox(“”,”)3.用循环求和、求乘积：Private sub form_click()Dim s as doubleDim I as integerS=_For I =_ to _S=_Next _Print “s=”; _End sub4.用递归求和、求乘积public function s(byval n as integer) as doubleif n=_ thens=_elses=_end ifend functionprivate sub form_click()print s ( _ )end sub5.输出由键盘符号构成的图形：private sub form_click()for I= _ to _ 确定输出多少行print tab( _ ); 确定每行起始位置for j = _ to _ 确定每行输出多少个符号print _ ; 确定输出什么next jprint 换行next Iend sub6.求指定范围内满足条件的数：private sub form_click()dim n as integerfor n= _ to _if _ thenprint nend ifnext nend sub7.求不定范围内满足条件的最小数：private sub form_click()dim n as integern=1do if _ thenprint nexit do end ifn=n+1loopend sub8.随机产生10个10,100之间的整数，计算它们的和及平均值，找出其中最大数和最小数，并按升序或降序排列。Private sub form_click()Dim a(_ ) as integerDim max as integer, min as integerDim I as integer, j as integer, m as integerRem 随机得到10个数并输出：RandomizeFor I=_ to _A(i)=_Next IFor i= _ to _Print a(i);Next iRem 计算和与平均值：S=0For i=_ to _S=_Next iPrint “和=”；s，“平均值=”；s/10Rem 找出最大数和最小数：Max=a(_)Min=a(_)For I=_ to _If _ then _If _ then _Next IPrint “最大数为”;_Print “最小数为”;_Rem 排序：For I=_ to _For j=_ to _If _ t