❶ VB编程：成果输出到TXT文件中，怎样设置输出字体的大小、字体的上标下标
txt文本文复件和字体无关
那是记事制本notepad的设置显示的问题
txt文件本身不存储文字的字体（doc、rtf才会储存）
上下标请去查unicode编码表 不是所有字体都有上下标符号 具体请自行谷歌解决
❷ 高手进！VB编成！ 求代码！若成果必重谢！
第一题 单击窗体 则其隐藏 显示出窗体2 单击窗体2则亦然
Private Sub Form_click()
Form1.Hide
form2.Show
End Sub
Private Sub Form2_click()
Form1.show
form2.hide
End Sub
第二题
1、因为我们需要使用到MediaPlayer控件，所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。
2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。
3、将Form1的Caption属性更改为“小叮当的媒体播放器”。
4、分别将五个Command Button控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”，然后把它们按照一定的位置放好。
5、选中CommonDialog控件之后，在右边属性的“Filter”对话框中输入“WAV（*.wav）|*.wav|MIDI（*.mid）|*.mid|MPEG（*.mpeg）|*.mpeg|DAT（*.dat）|*.dat|AVI（*.avi）|*.avi|MP3（*.mp3）|*.mp3”的文件过滤选项，这样就可以支持各种常见的媒体影像文件了。
小蘑菇：看起来和真正的MediaPlayer差不多呀，还蛮有专业水准的呢。
小叮当：是呀，这全要归功于MediaPlayer控件，下面就是代码编写部分内容了：
1、首先要双击Form1窗口，并选择“通用”对象，输入下面的通用代码：
Option Explicit
Dim playfilename As String /定义播放文件的名称
Dim playposition As Double /定义当前播放的位置
2、双击“暂停”按键并输入下列代码：
Private Sub Command1_Click()
Command1.Enabled = False /暂停按键失效
MediaPlayer1.Pause /暂停播放
playposition = MediaPlayer1.CurrentPosition /当前的播放位置
End Sub
3、双击“播放”按键并输入下列代码：
Private Sub Command2_Click()
Command1.Enabled = True /暂停按键有效
Command3.Enabled = True /停止按键有效
MediaPlayer1.filename = playfilename /播放媒体文件名称
MediaPlayer1.SelectionStart = playposition /当前播放的位置
MediaPlayer1.Play /播放媒体文件
End Sub
4、双击“停止”按键并输入下列代码：
Private Sub Command3_Click()
playposition = 0 /停止播放
Command3.Enabled = False /停止按键无效
Command1.Enabled = False /暂停按键无效
Command2.Enabled = True /播放按键有效
MediaPlayer1.Stop /停止播放
End Sub
5、双击“选择”按键并输入下列代码：
Private Sub Command4_Click()
CommonDialog1.showopen /打开文件对话框
playfilename = CommonDialog1.filename /记录播放文件名
playposition = 0 /第一次打开文件时候，播放位置为0
End Sub
6、双击“退出”按键并输入下列代码：
Private Sub Command5_Click（）
Unload Me /卸载窗口
End /结束程序
End Sub
第三题
Private Sub Command1_Click()
If Command1.Caption = "显示" Then
Print "欢迎使用Visual Basic！"
Command1.Caption = "清除"
Else
Me.Cls
Command1.Caption = "显示"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "显示"
Command2.Caption = "退出"
End Sub