原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
Vb程序填空操作要点
Vb程序填空要点：
一、程序代码书写注意事项：
1．输入程序代码时，不要把某个对象的某个事件过程代码写到另一个对象的另一个事件过程中去。
代码一律小写输入，标点符号采用英文标点符号，不能用中文（字符串””双引号内除外）
一行一句
一行多句：句与句之间用冒号“：”分隔
一句多行：前一行末空一格再加下划线“_”回车另起一行
采用缩进突出层次结构，一层缩进一个制表位
二、将下列语句用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两个变量中的数据：
13．A能被b整除：
14．A不能被b整除：
15．M是奇数：
16．N是偶数：
17．将A转换成小写字母：
18．将b转换成大写字母：
19．N是一个三位数，如何得到每位上的数字：
注：一些固定格式:
交换两个变量中保存的数据: m=_____ : _____= ______ : _____=m
用文本框接收输入的数值型数据: x= val(text1.text)
用inputbox接收输入的数值型数据: x=val(inputbox(“”,””)
3.用循环求和、求乘积：
Private sub form_click()
Dim s as double
Dim I as integer
S=________
For I =_________ to _________
S=_________
Next _____
Print “s=”; ______
End sub
4.用递归求和、求乘积
public function s(byval n as integer) as double
if n=________ then
s=___________
else
s=___________
end if
end function
private sub form_click()
print s ( ______ )
end sub
5.输出由键盘符号构成的图形：
private sub form_click()
for I= ______ to _______ ‘确定输出多少行
print tab( _____________ ); ‘确定每行起始位置
for j = ___________ to __________ ‘ 确定每行输出多少个符号
print _______ ; ‘确定输出什么
next j
print ‘ 换行
next I
end sub
6.求指定范围内满足条件的数：
private sub form_click()
dim n as integer
for n= ______________ to __________
if _____________________ then
print n
end if
next n
end sub
7.求不定范围内满足条件的最小数：
private sub form_click()
dim n as integer
n=1
do
if __________________________________________ then
print n
exit do
end if
n=n+1
loop
end sub
8.随机产生10个[10,100]之间的整数，计算它们的和及平均值，找出其中最大数和最小数，并按升序或降序排列。
Private sub form_click()
Dim a(______ ) as integer
Dim max as integer, min as integer
Dim I as integer, j as integer, m as integer
Rem 随机得到10个数并输出：
Randomize
For I=______ to _______
A(i)=_____________
Next I
For i= _______ to _________
Print
文档评论（0）