信息技术操作题

操作题2

第11题：打开"z:\vb\1\"文件夹中的文件：""进行以下操作后并保存！

在窗体""的"command1_click"事件中编写**(请不要随便更改其它**)，使之能够实现如下功能：读入由text1控件输入的成绩（0~100之间的整数），在text2控件相应的输出”及格”或者”不及格”。成绩达到或者超过60分的为“合格”，否则为“不合格”。

第12题：打开"z:\vb\2\"文件夹中的文件：""进行以下操作后并保存！

在窗体""的"command1_click"事件中编写**(请不要随便更改其它**)，使之能够实现如下功能：读入由text1、text2、text3控件输入的数，在text4控件输出它们的平均值。

第13题：打开"z:\vb\2\"文件夹中的文件：""进行以下操作后并保存！

在窗体""的"command1_click"事件中编写**(请不要随便更改其它**)，使之能够实现如下功能：读入由text1输入的数，判断是否是质数，如果是质数就在text2输出”是”，如果不是质数就在text2输出”不是”。

第11题：打开"z:\vb\1\"文件夹中的文件：""进行以下操作后并保存！

第12题：打开"z:\vb\2\"文件夹中的文件：""进行以下操作后并保存！

参***。private sub command1_click()

dim a as single,b as single,c as single,d as singlea=b=

c=d=(a+b+c)/3

end sub

第13题：打开"z:\vb\2\"文件夹中的文件：""进行以下操作后并保存！

参***：private sub command1_click()

dim i as integer, j as integer, k as integer

i = k = 0

for j = 2 to sqr(i)

'删除<1>，填入正确的**。

if i mod j=0 then k = k + 1

next j

'删除<2>，填入正确的**。

if k=0 then = 是" else = 不是"

end sub