会VB的快进来帮我写下代码,十分感谢!

这是老师布置给我们的作业,可是我不懂做,希望好心人能够帮帮我,我万分的感谢,不然我就会被我们老师给骂了,真心的请你们帮帮忙。。题目如下:
1.Command1的click事件
设置窗体的标题文字:“第一个visual basic 程序”
设置标签文字:“编写VB程序是一件非常有趣的事情”
设置按钮文字:“画面已经改变”
使名为Command2的按钮为可用
打印一个空格实际上就是换行
在窗体时上显示文字:“我们大家一起来轻松学习VB语言”
Command2的click事件
结束程序

2.Command1的click事件
窗体最小化
Command2的click事件
窗体最大化
Command3的click事件
窗体正常化
Command4的click事件
结束程序

3.窗体名为frmcolor
按钮名为cmdchange
写出实现单击按钮改变窗体颜色的程序过程
--------------------------------------------------------
就这三道题,真的麻烦各位高手来帮帮忙,我在这里谢谢了

第1个回答  2008-09-02
这是第一个:
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Print "我们大家一起来轻松学习VB语言"
Me.Caption = "第一个visual basic 程序"
Label1.Caption = "编写VB程序是一件非常有趣的事情"
Command1.Caption = "画面已经改变"
Command2.Enabled = True
End Sub

这是第二个答案:
Private Sub Command1_Click()
Form1.WindowState = 1
End Sub

Private Sub Command2_Click()
Form1.WindowState = 2
End Sub

Private Sub Command3_Click()
Form1.WindowState = 0
End Sub

Private Sub Command4_Click()
End
End Sub
第2个回答  2008-09-02
一、
Private Sub Command1_Click()
Me.Caption = "第一个visual basic 程序"
Label1 = "编写VB程序是一件非常有趣的事情"
Command1.Caption = "画面已经改变"
Print
Print "我们大家一起来轻松学习VB语言"
End Sub

Private Sub Command2_Click()
End
End Sub

二、
Private Sub Command1_Click()
Me.WindowState = 1
End Sub

Private Sub Command2_Click()
Me.WindowState = 2
End Sub

Private Sub Command3_Click()
Me.WindowState = 0
End Sub

Private Sub Command4_Click()
End
End Sub

三、
Private Sub cmdchange_Click()
frmcolor .BackColor = QBColor(Rnd * 16)
End Sub本回答被提问者采纳
第3个回答  2008-09-07
太简单了

会VB的快进来帮我写下代码,十分感谢!
这是第一个:Private Sub Command2_Click()Unload Me End Sub Private Sub Form_Load()Print "我们大家一起来轻松学习VB语言"Me.Caption = "第一个visual basic 程序"Label1.Caption = "编写VB程序是一件非常有趣的事情"Command1.Caption = "画面已经改变"Command2.Enabled = True End Sub 这是...

会VB的快进来帮我写下代码,十分感谢!
1.Private Sub Form_Click()if text1.text=123 then msgbox “密码不正确”else msgbox “密码错误”End Sub 2.Private Sub Command1_Click()Text1.FontName = "楷体"text1.fontsize=26 Text2.FontName = "隶书"text2.fontsize=26 text2.FontItalic=true text1.passwordchar=""End Sub 3.Pr...

求大量VBS整人代码.
"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示:","请在此输入你的名字") If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫:"&a&" ",vbYesNo + vbExclamation,"芮洲提示:") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("请在对话框中填写你真实的姓名!"&v...

vb6中TXT文档编码转换源代码求助
Open "C:filename.txt" For Input As #1 sFile = StrConv(InputB$(LOF(1), #1), vbUnicode)Close #1 End Sub 上面修正程序先用 InputB 将文件读进来,不过使用 InputB 所读入的文件是 Ansi格式的,所以要再用 StrConv 转成 Unicode 才行。=== VB我不是太熟 这些是COPY了人家的 有这些例...

大学生活中的博弈论这门课是你有何收获1500字论文
他的个人魅力极大的感染了我,加上我初中就对BASIC所有了解,VB我很快上手,从最初写最简单的计算器,记事本,汉字国标码查询器,到后来写俄罗斯方块,调WIN32API绑定网关的程序,直到后来给老城的公司写管理系统,我估计用VB写过3~4万行程序,通过编程练手,我知道了什么叫写程序,为什么设计和软件工程是如此的重要,那些...

想问问各位编程高手最开始的时候是怎么下手的,也可以说是怎么从什么都...
第一个C语言程序,就是那个经典的HelloWorld,我调了几个星期,上机机会非常少,也没有书告诉我开发环境(TC2.0)需要设置,而且开始我都不知道有编译器,我甚至自作聪明把写好的程序扩展名从.c改成.exe,结果可想而知。 大一学完了C、X86的汇编、数据结构、C++。由于精力都花在自学上了,大一下四门课挂了彩,三类...

VB程序怎样加密啊???VB高手快进来!!!
你把程序用到的 工程文件、窗体文件、模块文件等 都不打包 打包只带上 .exe .dll .ocx 等就够了

关于VB简单判断问题
第一个问题是,VB的隐式转换问题。VB会根据使用环境,将变量隐式转换为相应的类型。例如,If Int(Text1.Text) = Text1.Text Then 语句中,Int函数,它的作用是返回参数的整数部分。语法:Int(number)必要的 number 参数是 Double 或任何有效的数值表达式。这个时候VB就隐式将Text1.Text换换为“...

感谢老师感谢信
在当下社会,用到感谢信的地方越来越多,我们在写感谢信的时候要注意态度要真挚。但是感谢信有什么要求呢?下面是我帮大家整理的感谢老师感谢信9篇,希望能够帮助到大家。 感谢老师感谢信 篇1 敬爱的各位领导、各位老师: 此次培训,我们满怀期待,潜心学习,亲身感受到“培训是福利”,不虚此行之感油然而生。在即将回归...

vb.net做安装包,安装后自动运行程序
1 新建安装部署项目 打开VS2005,点击新建项目,选择:其他项目类型->安装与部署->安装向导(安装项目),然后点击确定。2 安装向导 关闭后打开安装向导,点击下一步,或者直接点击完成。3 开始制作 安装向导完成后即可进入项目文件夹:双击"应用程序文件夹"在右边的空白处右击,选择添加->文件,将你的做...

相似回答
大家正在搜