vb综合作业（VB comprehensive operation）.docVIP

vb综合作业（VB comprehensive operation） （3）。实现代码：私有子command1_click() 如果“文本=“123456”之后。 隐藏Form1。 显示表。 其他的 本密码错误”+“”货币供应量的5，“警告” 显示Form1。 Text文本=“”。 最后如果 Text文本=“”。 端子 私有子text1_change() text1.passwordchar =“*” 端子 2。菜单窗体 （1）。功能：点击后便能跳转到相应的窗体，进行”数组操作”字符转换”和”数学运算”等过程。 （2）。界面： （3）。运行代码： 私有子shuxueyunsuan_click() 隐藏表。 显示生成。 端子 私有子shuzucaozuo_click() 隐藏表。 回执表3.显示 端子 私有子tuichu_click() 隐藏表。 显示Form1。 端子 私有子zifuzhuanhuan_click() 隐藏表。 显示表。 端子 3。数组操作窗体 （1）。功能：点击”输入”按钮输入数组后便能进行数组的升序排列，将序排列，最大值，最小值的运算 （3）。运行代码： 暗淡的（9）为单一的 私有子command1_click() 暗淡的%，我%，J %，N % N = UBound（一） 对于i = 0到n - 1 对于j = 0到n - 1 i 如果A（j） A（j + 1） T =（j） a（j）＝a（j + 1） a（j + 1）= t 最后如果 下J 下一个我 对于i = 0到n text1。文本= text1。文字和”与（我） 下一个我 端子 私有子command2_click() 暗淡的%，我%，J %，N % N = UBound（一） 对于i = 0到n - 1 对于j = 0到n - 1 i 如果a（j） a（j + 1） T =（j） a（j）＝a（j + 1） a（j + 1）= t 最后如果 下J 下一个我 对于i = 0到n 正文文本= text2。文字和“与（我） 下一个我 端子 私有子command3_click() 最大亮度%，IMAX %，% max =（0）：IMAX = 0 我= 1，UBound（一） 如果（我）最大最大=一个（我）：IMAX =我 下一个我 T = A（0）：一（0）= A（IMAX）：一个（IMAX）= T 正文。正文=一（0） 端子 私有子command4_click() 昏暗的%，% % Imin，T min = A（0）：Imin = 0 我= 1，UBound（一） 如果（我）民民=一个（我）：我=我 下一个我 T = A（0）：一（0）= A（我）：一个（我）= T 正文。正文=一（0） 端子 私有子command6_click() Text文本=“”。 正文文本=“”。 正文文本=“”。 正文文本=“”。 端子 私有子command7_click() Form3。隐藏 显示表。 端子 私有子form_load() command1。启用= false Command2启用=假。 带领。启用= false command4启用=假。 command6启用=假。 端子 私有子command5_click() 昏暗，%，% 对于我= 0比9 S = Val（InputBox（“输入第“我+ 1”个数”）） 如果Not IsNumeric（S）然后 本输入无效数据，请重新输入，请输入第“我+ 1，5 + 48”个数”， Warning S = Val (InputBox (enter i+1 number)) End If A (I) = s Next I Command5.Enabled = False Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command6.Enabled = True End Sub 4. mathematical form: (1) function: enter two numbers by the scroll bar, so as to add, decrease, multiply, multiply and divide. (2) interface: (3) running code: Dim, a%, b%, c% Private, Sub, Command1_Click () If Option1 Then C = a + B Label4 = A + = B = = C End If If Option2 Then C = a - B Label4 = A