【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《操作题代码》，欢迎阅读！
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.dywdw.cn/04c595d8bbf67c1cfad6195f312b3169a451ea0e.html
下载此文档
搜索文档
阅读：
文档下载
2022-05-19
