根据题意，新建“标准EXE”工程，将两个标签和两个命令按钮添加到窗体中，标签的Caption属性分别为“利用循环计算1+1/2+1/4+1/8+1/16+1/32的结果，并把结果写入目标文件中。”和“目标文件：考生文件夹\out3.txt”，命令按钮的名称分别为Command1和Command2，Caption属性分别为开始和关闭，由于是小数，则参数定义为Double类型，双击Command1进入代码窗口，编写如下代码：
   Private Sub Command1_Click()
     Dim res As Double                   '结果
     Dim i As Integer                    '计数
     Dim temp As Double                  '每个需要相加的数
     res=1
     temp=1
     For i=1 To 5                        '循环5次，表示除了1之外的5个分数
       temp=temp/2                       '每个数都是前一个的一半
       res=res+temp                      '进行相加
     Next i
     Open "out3.txt" For Output As # 1   '打开文件
     Write # 1,res                       '将结果写入文件
     Close # 1
     Command1.Caption="完成"
     Command1.Enabled=False
   End Sub

   Private Sub Command2_Click()
   Unload Me                             '关闭对话框
   End Sub
   单击按钮运行程序，并按要求保存。

单选按钮都是成组出现，用户在一组单选按钮中只能且最多选择一项，某项被选定后，其左边的圆圈中出现一个黑点；字体由FontName属性决定，字体的大小由FontSize属性决定；清除文本框的内容可以用将文本框的内容置空来实现(文本框.Text=" ")。
   框架是一个容器控件，用于将窗岸上的控件分组，不同的对象可放在同一个框架内，它提供了视觉上的区分和总体的激活或屏蔽功能。要使用框架对控件进行分组，必须先画出框架，然后在框架内画出需要成为一组的控件，这样才能将框架内的控件组成一个整体。
   根据题意，本题补充后的具体代码如下：
   Private Sub Command1_Click()
     Text1.Font.Bold=False
     Text1.Font.Italic=False
     Text1.Font.Underline=True
     Option1.Value=True
     Option4.Value=True
     Text1.Font.Name="宋体"
     Text1.Text="模拟试题"
   End Sub

   Private Sub Command2_Click()
     Text1.Text=" "
   End Sub

   Private Sub Form_Load()
     Text1.Text="模拟试题"
     Text1.Font.Bold=False
     Text1.Font.Italic=False
     Text1.Font.Underline=True
     Text1.Font.Name="宋体"                     '字体为宋体
   End Sub

   Private Sub Option1_Click()
     Text1.Font.Name="宋体"                     '字体为宋体
   End Sub

   Private Sub Option2_Click()
     Text1.Font.Name="楷体_GB2312"              '字体为楷书
   End Sub
   Private Sub Option3_Click()
     Text1.Font.Name="隶书"                     '字体为隶书
   End Sub

   Private Sub Option4_Click()
     Text1.Font.Bold=False                      '不是黑体
     Text1.Font.Italic=False                    '不是斜体
     Text1.Font.Underline=True                  '加下画线
   End Sub

   Private Sub Option5_Click()
     Text1.Font.Bold=True
     Text1.Font.Italic=False
     Text1.Font.Underline=False
   End Sub

   Private Sub Option6_Click()
     Text1.Font.Bold=False
     Text1.Font.Italic=True
     Text1.Font.Underline=False
   End Sub
   单击按钮运行程序，并按要求保存。

程序运行时控件是否可用由其Enabled属性决定，当其值为True时可用，当为False时不可用(灰色)。对文件进行操作必须先打开文件，同时通知操作系统对文件进行读操作还是写操作，打开文件的命令是Open，其常用形式为：Open "文件名" For模式As[#]文件号[Len=记录长度]。
   模式有Output(打开文件，对其进行写操作)、Input(打开文件，对其进行读操作)、Append(打开文件，在文件末尾追加记录)。
   统计大小写字符和数字只需根据字符的Ascii码判断，大写字母的Ascii值是65～90，小写字母的Ascii值是97～122，数字的为48～57。利用EOF来判断是否读完数据。
   根据题意双击Command1进入代码编写窗口，补充后的具体代码如下：
   Private Sub Command1_Click()
     Dim b As String
     Dim temp As String
     Dim nn As Long
     Dim cn As Long
     Dim otn AS Long
     Dim i AS Integer
     nn=0
     i=0
     cn=0
     otn=0
     Open ".\sjin.dat" For Input As # 1
     While EOF(1)=False
       Input # 1,temp                              '将字符串读入到temp中
       For i=1 To Len(temp)
         b=Mid(temp,i,1)                           '利用Mid函数提取字符Mid(String,Index,[Elength])
         If Asc(b)＞=Asc("0") And Asc(b)＜=ASC("9") Then
           nn=nn+1
         Else
         If Asc(b)＞=Asc("A") And Asc(b)＜=rAsc("z") Then
           cn=cn+1
         Else
           otn=otn+1
           End If
         End If
       Next i
     Wend
     Close # 1
     Command1.Caption="完成"
     Command1.Enabled=False
     Open".\sjout.dat"For Append As # 2            '打开文件准备写入
     Print # 2,"数字个数:"
     Print # 2,nn
     Print # 2,"字母个数"
     Print # 2,cn
     Print # 2,"其他字符个数"
     Print # 2,otn
     Close # 2
   End Sub
   Private Sub Command2 Click()
     Unload Me
   End Sub
   单击按钮运行程序，并按要求保存。