1、 PSet （xi, yi） Print i - 1 Next jNext i End SubPrivate Sub Form_Load（）Print 要求： ;1.将圆周等分成16份；2.每个等分点要标记成0-16的数字；3.按样本图的图案画图。End Sub附图：二、加密Function code（ByVal s$, ByVal key%）Dim c As String * 1, iAsc%code = For i = 1 To Len（s）c = Mid$（s, i, 1）Select Case cCase A To ZiAsc = Asc（c） + keyIf iAsc Asc（） T
2、hen iAsc = iAsc - 26code = code + Chr（iAsc）azCase Elsecode = code + cEnd SelectEnd FunctionPrivate Sub close_Click（）Form11.HideForm1.ShowPrivate Sub Jiami_Click（）Text2 = code（Text1, 2）Private Sub open_Click（）CommonDialog1.Action = 1Text1.Text = Open CommonDialog1.FileName For Input As #1Dim counter
3、As IntegerDim workarea（25000） As StringProgressBar1.min = LBound（workarea）ProgressBar1.max = UBound（workarea）ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound（workarea） To UBound（workarea）workarea（counter） = initial value & counterProgressBar1.Value = counterNext c
4、ounterDo While Not EOF（1）Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1Private Sub save_Click（）CommonDialog1.FileName = a1.txtCommonDialog1.DefaultExt = txtCommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text2.Text三、解密Function UnCode（By
5、Val s$, ByVal key%） Dim c As String * 1, iAsc% UnCode = For i = 1 To Len（s） c = Mid$（s, i, 1） Select Case c Case iAsc = Asc（c） - key If iAsc ） Then iAsc = iAsc + 26 UnCode = UnCode + Chr（iAsc） iAsc = Asc（c） - key Case Else UnCode = UnCode + c End Select Next iForm2.HidePrivate Sub Jiemi_Click（）Text2
6、 = UnCode（Text1, 2）a.txt四、蝴蝶飞舞蝴蝶飞出窗体后重新定位到左下方再向右上方飞Private Sub Timer1_Timer（）Static PickBmp As IntegerIf PickBmp = 0 Then Image1.Picture = Image2.Picture PickBmp = 1Else Image1.Picture = Image3.Picture PickBmp = 0End IfCall mymoveSub mymove（）Image1.Move Image1.Left + 40, Image1.Top - 25If Image1.Top
7、 = 0 Then Image1.Left = 0 Image1.Top = 2325图：五、文本编辑Private Sub Copy_Click（）Clipboard.ClearClipboard.SetText RichTextBox1.SelTextPrivate Sub Cut_Click（）RichTextBox1.SelText = Private Sub Exit_Click（）Form3.HidePrivate Sub Font_Click（）CommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action
8、= 4RichTextBox1.FontName = CommonDialog1.FontNameRichTextBox1.FontSize = CommonDialog1.FontSizeRichTextBox1.FontBold = CommonDialog1.FontBoldRichTextBox1.FontItalic = CommonDialog1.FontItalicRichTextBox1.FontStrikethru = CommonDialog1.FontStrikethruRichTextBox1.FontUnderline = CommonDialog1.FontUnde
9、rlineRichTextBox1.ForeColor = CommonDialog1.Color注：1.打开对话框的初始文件夹应是所要打开文件所在的文件夹，将提供的xz.txt文件打开；2.要实现将选定的内容格式化，必须在工具箱中添加RichTextBox控件（Microsoft Rich Textbox Comtrol 6.0）并在帮助菜单中查阅其字体设置的相关属性。3.TichTextBox中要设置垂直滚动条，文本格式化时要将选定的内容格式化。Private Sub Label1_Click（）RichTextBox1.Text = RichTextBox1.Text = RichTex
10、tBox1.Text + inputdata + vbCrLfPrivate Sub Paste_Click（）RichTextBox1.SelText = Clipboard.GetTextPrivate Sub Print_Click（）CommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print RichTextBox1.TextPrinter.EndDocSub RichTextBox1_MouseDown（Button As Integer, Shift As Integer, x As Single,
11、y As Single）If Button = 2 Then PopupMenu EditMenu, vbPopupMenuCenterAlign CommonDialog1.Action = 2Print #1,Private Sub SaveAs_Click（）default.TxtTxtPrint #1, RichTextBox1.Text六、统计Dim a（0 To 9）, i%, min%, max%, ave%Private Sub Command1_Click（）Dim j%, imin%, s%, t%Form5.ClsCurrentX = 0CurrentY = 0For i
12、 = 0 To 9a（i） = Int（Rnd * 90 + 10）s = s + a（i）Print a（i）;ave = s / 10For i = 0 To 8imin = i For j = i + 1 To 9 If a（j） a（imin） Then imin = jt = a（i）a（i） = a（imin）a（imin） = tPrivate Sub Command2_Click（）Private Sub Command3_Click（）Print a（9）;Private Sub Command4_Click（）Print a（0）;Private Sub Command5_
13、Click（）Print ave;Private Sub Command6_Click（）Form5.Hide将随机产生的10个2位数升序排序，并求出其最大值、最小值和平均值。七、小球跳动Dim d As BooleanShape1.Shape = 3Shape1.FillColor = vbRedShape1.FillStyle = 0Timer1.Interval = 20If Not d ThenIf Shape1.Top 100 ThenShape1.Top = Shape1.Top - 100八、计算器（彩票摇奖）Dim x, i%, a%（0 To 4）, j%RandomizeF
14、or i = 0 To 4 Do a（i） = Int（Rnd * 30） For j = 0 To i - 1 If a（i） = a（j） Then Exit For Loop While j ix = a（i） & xText1 = xDim b%（0 To 4）, k%, l%, q%, r%, y As String, cy = Trim$（Text1）c = Split（y, ）n = 0For k = 0 To 4Do b（k） = Int（Rnd * 30） For l = 0 To k - 1 If b（k） = b（l） Then Exit For Next l Loop
15、While l kNext kFor q = 0 To 4 For r = 0 To 4 If b（q） = c（r） Then n = n + 1 End IfNext rNext qIf n = 0 Then编写一个简易的30选5彩票摇奖程序。功能要求用户可以输入5个不同的整数，或者通过机选按钮，自动生成5个互不相同的随机数；单击摇奖按钮，生成中奖号码，并对用户输入或机选的彩票数字进行评奖，用户选对1个数字，获5等奖，选对2个数获4等奖.程序运行界面如样本所示。CurrentY = 1900CurrentX = 300本期中奖号码为： b（0）; b（1）; b（2）; b（3）; b（4）对不起，您没有中奖ElseIf n = 1 Then恭喜了，您中了五等奖ElseIf n = 2 Then恭喜了，您中了四等奖ElseIf n = 3 Then恭喜了，您中了三等奖ElseIf n = 4 Then恭喜了，您中了二等奖ElseIf n = 5 Then恭喜了，您中了一等奖
