瑞星卡卡安全论坛

由于在选课大战的时候偶初来匝道的没有把好关口 不小心选了个打脑壳的选修课VB~~可怜的娃娃发扬大学逃课精神 一个学期只去了两节课 睡了两节课 结果~~~现时现报啊~偶们老师喊交的作业居然是做个程序~他说了这个程序听课的人十分钟就做出来了 偶一看 看起来来还是满简单的~~可偶还是不会做啊 泪流满面啊~~~斑竹大哥 各位程序高手帮帮小妹的忙吧 感激ING
题目：设计一个程序，包含两个窗体
      第一个窗体上有四个按钮（单击第一个按钮可以显示窗体2，单击第二个按钮可以隐藏窗体1，单击第三个窗体可以计算“1到100的累加”，并将计算结果显示在窗体的文本框1中，单击第四个按钮可以在文本框显示由大变小的汉字）
      第二个窗体上有四项菜单，执行第一个菜单项可以显示一副图片，执行第二个菜单项的第一项子菜单可以重新显示窗体1，执行第三个菜单项可以显示文本，执行第四个菜单项可以退出程序~~~
      最好是运行好的程序了，因为偶连怎么把代码在VB环境运行成程序都不知道了~~提前谢谢恩人~~如果不方便传的话 就QQ联系了 偶一般都在的 35429538

附件: 78111720061228214602.gif

都木有人理我吗？

小妹子，你不要担心哈，我把我同学的QQ给你说，你去找他，他可是编程高手哦。。。346738917这是他的QQ，说不定能帮上你的忙哦

汗，楼主真是厉害，如果问题还没有解决的话，我也可以帮忙

QQ就不公开了，如果需要帮忙，发论坛消息给我..

晕死,只要你听课,两节课下来肯定会

不好好学习

不要忙于骂我了 我知道错了 ~~我VC学得很好啊~~呵呵 因为是选修就没太注意 帮帮忙吧~~~江湖上不是都流行拔刀相助~~·

不要忙于骂我了 我知道错了 ~~我VC学得很好啊~~呵呵 因为是选修就没太注意 帮帮忙吧~~~江湖上不是都流行拔刀相助~~·

偶读个职高都知道做这个啦，，呵呵，，羞了吧

这么简单都不会？

这么简单都不会？

窗体1代码

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Form1.Visible = False
End Sub

Private Sub Command3_Click()
Text1.Text = Val(1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10)
End Sub

有一项不会就是文字从大到小  还有计算1到100的 自己要添加完我刚学不知道用什么办法简单 只能1个个的加


窗体2代码
Private Sub exit_Click()
End
End Sub


Private Sub showform1_Click()
Form1.Show
End Sub

Private Sub showpic_Click(Index As Integer)
Picture1.Picture = LoadPicture("C:\WINDOWS\FeatherTexture.bmp")
End Sub

Private Sub showtext_Click()
Text1.Text = "显示文本"
End Sub

希望你能用到 呵呵 小弟刚学请大家多多支持

修正一下

Private Sub Command3_Click()
all = 0
for i=1 to 100
all = all+i
next
Text1.Text = Val(all)
End Sub

楼主，你的VC学得好VB学不好……也太扯了吧……汗！

呵呵 楼上的哥哥厉害呀 能加我QQ不 259302756  我VB也刚学 呵呵

对啊~楼主~VC都会VB还能不会啊?自己现看书也做出来了啊

一个字，懒！

窗体一的：
Private Sub Command1_Click()
Form2.Show

End Sub

Private Sub Command2_Click()
Form1.Hide

End Sub

Private Sub Command3_Click()
Sum = 0
For i = 1 To 100
  Sum = Sum + i
 
Next
Text1.Text = CStr(Sum)


End Sub

Private Sub Command4_Click()
Text1.Text = "由大变小"

Text1.FontSize = Text1.FontSize - 1


End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.FontSize = 20


End Sub

窗体二的：
Private Sub chuangtiyi_Click()
Form1.Show

End Sub

Private Sub Form_Load()

End Sub

Private Sub sanhao_Click()
Print "显示文字"


End Sub

Private Sub sihao_Click()
End
End Sub

Private Sub yihao_Click()
Image1.Stretch = True
Image1.Picture = LoadPicture("E:\c4a1cbd5d3eac0bdd501[1].jpg")


End Sub

窗体一

附件: 8401212007218194714.jpg

窗体二

附件: 8401212007218194827.jpg

菜单编译器第一项设置

附件: 8401212007218195247.jpg

菜单编译器第二项设置

附件: 8401212007218195334.jpg

菜单编译器第二项子菜单设置

附件: 8401212007218195424.jpg

菜单编译器第三项设置

附件: 8401212007218195503.jpg

菜单编译器最后一项设置

附件: 8401212007218195631.jpg

菜单编译器最后一项设置

附件: 8401212007218195728.jpg

窗体一
Private Sub Command1_Click()
Form2.Show

End Sub

Private Sub Command2_Click()
Form1.Hide

End Sub

Private Sub Command3_Click()
Sum = 0
For i = 1 To 100
  Sum = Sum + i
 
Next
Text1.Text = CStr(Sum)


End Sub

Private Sub Command4_Click()
Text1.Text = "由大变小"

Text1.FontSize = Text1.FontSize - 1


End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.FontSize = 20


End Sub

用传给你吗？

窗体二
Private Sub chuangtiyi_Click()
Form1.Show

End Sub

Private Sub Form_Load()

End Sub

Private Sub sanhao_Click()
Print "显示文字"


End Sub

Private Sub sihao_Click()
End
End Sub


Private Sub yihao_Click()
Image1.Stretch = True
Image1.Picture = LoadPicture("图片文件完整路径") '比如：E:\c4a1cbd5d3eac0bdd5
                                                        01[1].jpg


End Sub

窗体一

附件: 8401212007218200609.jpg

不错不错，扎实肯干~学编程要的就是这样的精神！
编程小学生，顶你！