VB程序设计，随便给个例子我.

'界面你会设计吧，这里把“照片、格言、结束”三个按钮定为Cmd1、Cmd2、Cmd3（记得把标题改成“照片、格言、结束”哦~）。然后放两个Image控件（这里用Image1和Image2分别代表你照片和自画图形），把你的照片放进去，再放一个Label1。。。。开始写代码哦~~

Private Sub Cmd3_Click()

End ’结束

End Sub

Private Sub Form_Click()

Dim a As String

a = InputBox("请输入信息:") ‘输入框

If a = "018" Then

Image2.Visible = True '显示自画图槐袜片

ElseIf a = "music" Then

FileCopy app.Path&"aaa.mp3" , "D:\aaa.mp3" '把文件移到D盘（前提是你的mp3文件要与你程序同文件夹）

Shell "D:\aaa.mp3" ‘假设路径为D盘，文件名为aaa.mp3(如果想要在程序内播放要另加控件)

Else

MsgBox "无效输入！"

End If

End Sub

Private Sub Form_Load()

Image1.Visible = False

Image2.Visible = False '让它们不可见

End Sub

Private Sub Cmd1_Click()

Image1.Visible = True '显示你的照片

End Sub

最后注意：在exe文件运行时，当前路径（app.path）为exe文件铅或激所在的路径。在VB中调试时，当前路径为VB所在的路径！所以团唤调试时要注意文件路径。。

大概就是这些了。。。没疑问吧？求分分~~

vb可以写的程序很多，比如我学的就是用于测绘方面的

对于初学者来说，简单的啊需要了解vb的三要素“对象”“事件”“方法”

比如单机窗体加载一张图片作为背景：

private sub form1_()load

form1.picture=loadpicture("") ，""号内为需要加载的图片的路径后面在加上\图片名.格式。就可以了

end sub

再如单机命令按钮，窗体出现文字：

private sub command_()click

print"你好" '因号内为你要窗体显示的文字

end sub

Private Sub Form_Activate()

'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：

Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288

Dim x As Double

x = Val(InputBox(""))

Print "①存一次5年期,5年后到期的本息合计"ss(x, 5, x5)

Print "②存一次3年期，一次2年期,5年后到期的本息合计"ss(ss(x, 3, x3), 2, x2)

Print "③存郑蚂一次3年期，两次1年喊橡埋期,5年后到期的本息合计"ss(ss(ss(x, 3, x3), 1, x1), 1, x1)

Print "④存两次2年期，一次1年期,5年后到期的本息合计"ss(ss(ss(x, 2, x2), 2, x2), 1, x1)

Print "⑤存一次2年期，三次1年期,5年后到期的本如碰息合计"ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print "⑥存五次1年期,5年后到期的本息合计"ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double

ss = a + a * c * b

End Function

Private Sub Form_Load()

AutoRedraw = True

End Sub

---