操作题代码

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《操作题代码》，欢迎阅读！

1、打开“Z:\VB\89”文件夹中的文件：“k3.vbp”，进行以下操作后并保存！

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 在text1文本框中输入一个整数a，判断其奇偶性，如果该数为偶数，则在text2文本框中输出“偶数”，否则输出“奇数”。

dim a as integer a = Text1.Text

If a Mod 2 = 0 Then Text2.Text = "偶数" Else Text2.Text = "奇数"

求a+b的奇偶性

dim a as integer dim b as integer a = Text1.Text b = Text2.Text

If (a + b) Mod 2 = 0 Then Text3.Text = "偶数" Else Text3.Text = "奇数"

2. 打开“Z:\VB\90”文件夹中的文件：“k4.vbp”，进行以下操作后并保存！

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 在text1文本框中输入一个整数a（不为零），判断其是否为正数，如果该数大于零，则在text2文本框中输出“正数”，如果小于零，则输出“负数”。

dim a as integer a =Text1.Text

If a > 0 = 0 Then Text2.Text = "正数" Else Text2.Text = "负数"

3. 打开“Z:\VB\90”文件夹中的文件：“k4.vbp”，进行以下操作后并保存！

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：在text1文本框中输入一个正整数a（不为零），判断的三次方是否大于1000，如果大于1000，则在text2文本框中输出“溢出”，否则在text2文本框中输出a三次方的值。

dim a as integer a =Text1.Text

If a * a * a > 1000 Then Text2.Text = "溢出" Else Text2.Text = a * a * a

4．打开“Z:\VB\91”文件夹中的文件：“k5.vbp”，进行以下操作后并保存！

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 在text1文本框中输入一个正整数a（不为零），如果此数小于10，则将此数乘以10后再加上此数输出。例如，该数为9，则在text2文本框中输出99。否则在text2文本框中输出“a大于或等于10”。 dim a as integer a =Text1.Text

If a < 10 Then Text2.Text = a * 10 + a Else Text2.Text = "a大于或等于10"


5．打开“Z:\VB\89”文件夹中的文件：“k3.vbp”，进行以下操作后并保存！

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：

在text1文本框中输入一个整数a，判断其是否能被5整除，如果该数能被5整除，则在text2文本框中输出“能”，否则输出“不能”。

dim a as integer

a =Text1.TextIf a Mod 5 = 0 Then Text2.Text = "能" Else Text2.Text = "不能"

6．打开“Z:\VB\87”文件夹中的文件：“k1.vbp”，进行以下操作后并保存！

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 分别在text1和text2文本框中输入a和b两个整数，比较(a+b)的平方和和a*b的大小，并在text3文本框中输出较大的数。

dim a as integer dim b as integer a = Text1.Text b = Text2.Text

If (a+b)^2 >a* b Then Text3.Text = (a+b)^2 Else Text3.Text = a* b

7．打开“Z:\VB\87”文件夹中的文件：“k1.vbp”，进行以下操作后并保存！

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 分别在text1和text2文本框中输入a和b两个整数，判断(a+b)是否大于20，如果大于20，则在text3文本框中输出a+b的值，否则在text3文本框中输出(a+b)的平方的值。

dim a as integer dim b as integer a=text1.text b=text2.text

if a+b>20 then text3.text=a+b else text3.text=(a+b)*(a+b)

8．能够实现如下功能： 分别在text1和text2文本框中输入a和b三角形的两条边，第三条边为25，判断其能否够成三角形，如果能，则在text3文本框中输出“存在”，否则在text3文本框中输出“不存在”。

dim a as integer dim b as integer a=text1.text b=text2.text

if a+b>25 and a+25>b and b+25>a then text3.text="存在" else text3.text="不存在"

9．能够实现如下功能： 分别在text1和text2文本框中输入a和b，判断一元二次方程

ax2+bx+6=0

是否有实根，如果有，则在text3文本框中输出“是”，否则在text3文本框


中输出“否”。

dim a as integer dim b as integer a=text1.text b=text2.text

if b*b-4*a*6>=0 then text3.text="是" else text3.text="否"

本文来源：https://www.wddqxz.cn/04c595d8bbf67c1cfad6195f312b3169a451ea0e.html