Question

vb作业求助急急急！～！在线等

1在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为“体育”、“音乐”、“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，则当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“音乐”复选框，则单击“显示”命令按钮后，在窗体上显示“我的爱好是体育音乐”；而如果选中“体育”、“音乐”和“美术”复选框，则单击“显示”按钮后，在窗体上显示“我的爱好是体育音乐美术”。(提示：依然用到字符串连接符&)
2在窗体上有两个单选按钮，名称分别为Op1和Op2，标题分别为“宋体”和“黑体”，一个文本框，名称为Text1，字体为楷体_GB2312，字号为四号字，还有一个命令按钮，名称为C1，标题为“切换”。要求程序运行后，在文本框中输入“等级考试”，并选择一个单选按钮。在单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体。
3在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为“输出”、“清除”。要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母“red”；如果单击“清除”按钮，则清除图片框中的内容。
4在窗口中有一个名为Image1的图像框，还有两个命令按钮，名称分别是C1和C2，标题分别是"放大"和"缩小"。要求程序运行后，点击C1按钮，则图像框变大100像素；点击C2按钮，则图像框变小100像素。
5用滑块控件控制文本框中文字的大小

Answer 1

题目出的挺精炼，也很具体，没有模棱两可的地方，我觉得题目出得不错。
这里面大多是让你写一个完整的程序，其中界面部分和要输入的文字需要你自己来画，我试着帮你写出程序吧：
第1题：
private sub C1_Click()
dim sPrompt as string
sPrompt="我的爱好是"
if Ch1.Value<>0 then sPrompt=sPrompt & "体育"
if Ch2.Value<>0 then sPrompt=sPrompt & "音乐"
if Ch3.Value<>0 then sPrompt=sPrompt & "美术"
Me.Print sPrompt
end sub

第2题：
private sub C1_Click()
dim sFontName as string
if Opt1.Value=true then sFontName="宋体"
if Opt2.Value=true then sFontName="黑体"
if sFontName<>"" then Text1.FontName=sFontName
end sub

第3题：
private sub Cmd1_Click()
P1.print "red"
end sub
private sub Cmd2_Click()
P1.cls
end sub
'注：其它内容需在界面上画，最好将P1的AutoRedraw设置为True。

第4题：
private sub C1_Click()
dim iW as single,iH as single
iW=image.width+100*screen.twipsperpixelX
iH=image.Height+100*screen.twipsperpixelY
image1.move 0,0,iW,iH
end sub
private sub C2_Click()
dim iW as single,iH as single
iW=image.width-100*screen.twipsperpixelX
iH=image.Height-100*screen.twipsperpixelY
if iW<0 then iW=0
if iH<0 then iH=0
image1.move 0,0,iW,iH
end sub

第5题：
放置一个文本框，命名为Text1；再放一个横向的滑块，命名为HScroll1
private sub HScroll1_Change()
on error resume next
text1.fontsize=HScroll1.value
end sub

Answer 2

你还要交这样的作业，我们可没有，自己学完就考完了省二级，然后国家二级。（省二级就相当于期末考试了）呵呵！

Answer 3

谁出这么烂糟的作业，书上都有 看看那就行了，慢慢练习