用vs2012编写vb程序。在线等急求！！！！

1以任意一张图片为背景图2在画面上有一个文本输入框，输入8~10位的正整数3如果输入不正确的话，弹出提示框，（请输入8~10位的正整数），并将输入框的背景色设置为红色，光... 1 以任意一张图片为背景图
2在画面上有一个文本输入框，输入8~10位的正整数
3 如果输入不正确的话，弹出提示框，（请输入8~10位的正整数），并将输入框的背景色设置为红色，光标移到输入框内。
4 在输入框下面有一组单选框，分别是从大到小排序和从小到大排序

5 有一个提交按钮，点击提交后，根据单选框的选择情况，将排序后的数据生成到D盘根目录的一个名字为test_XXXXX(XXX是你的名字的英文全屏)的文本文件里
6 按下table的顺序从上到下从左到右
7 画面上有另外一个按钮（生成），点击按钮会将上面提到的文本框的内容读出来，根据内容的第三位是奇数（生成倒三角）还是偶数（生成正三角）生成不同的9X9的乘法表到画面上
8 点击生成按钮的时候，判断文件是否存在，不存在的话报出信息（test_XXXXX文件不存在）
9 判断文件中是否有数据，如果没有数据，报出信息（test_XXXXX中内容为空）
10 判断文件中的数据位数是够3位，如果不是报出信息（test_XXXXX中位数不足3位）
11 判断文件中的数据的第三位是否为数字，如果不是报出信息（test_XXXXX中的第3位不是数字）展开

 我来答

2个回答

#热议# 什么是淋病？哪些行为会感染淋病？

匿名用户
2014-08-08

展开全部

'//首先你需要在Form1上面创建一个名称为Text1的TextBox


'//一个名为Command1的按钮和一个名为Command2的按钮
'//一个名为Picture1的PictureBox
'//然后再创建一个Form2,上面必须有一个名为Text1的TextBox
'//Form2上面也要有一个名为Command1的按钮和一个名为Command2的按钮
'//然后将下面的代码找对地方复制过去就行了
'//再添加一个Form3

'//关于Tab顺序的问题，你自己去调每个可操作控件的TabIndex
'//Form2的TextBox需要填上完整路径比如：C:\桌面\text_XXXX.txt

'//另外如果可以能不能留下你的邮箱······ 这样发真的很麻烦···


'////////////////////////////////////////////////////////////////////////////////////////////////////////////Form1

Dim teum As String
Option Explicit

Private Sub Check1_Click(index As Integer) '//检测点击的哪一个复选框

    If p = True Then
        p = False
        Exit Sub
    End If
    
    If Check1(index).Value = 1 Then
        teum = Text1.text '//记录未排序的结果
    Else
        Text1.text = teum '//将未排序的结果返还给文本框
        model = 0
    End If
            
    Select Case index
        Case 1
            Call click(Check1(1))
             model = 1
        Case 2
            Call click(Check1(2))
            model = 2
    End Select
    
End Sub

Private Sub Command1_Click() '//生成乘法表（这个地方推荐你改改··· 我不知道你打算把这个打印出来的乘法表放哪里···）
    
    If checkNumLen(Form1.Text1.text) = False Then
        Exit Sub
    End If
    
    Load Form3

End Sub

Private Sub Command2_Click() '//打开生成文件窗口，并将其设置为模式窗口
    
    Form2.Show vbModal
    
End Sub

Private Sub Form_Load()

    model = 0
    
End Sub

Private Sub Text1_Change()

    Text1.BackColor = vbWhite
    
End Sub

'/////////////////////////////////////////////////////////////////////////////////////////////////////////////Form2

Option Explicit

Private Sub Command1_Click()
    Dim file As String
    Dim s As String
    Dim txt As String
    
    p = True
    
    If Form1.Text1.text = "" Then
        MsgBox "被写入的数据不能为空！", vbCritical, "提示："
        p = False
        Exit Sub
    ElseIf checkNumLen(Text1.text) = False Then
        Form1.Text1.BackColor = &HC0C0FF
        MsgBox "被写入数据不符合条件！", vbCritical, "提示："
        p = False
        Exit Sub
    End If
    
    
    If model = 0 Then
        s = "【未排序的】"
    ElseIf model = 1 Then
        s = "【从小到大排序的】"
    ElseIf model = 2 Then
        s = "【从大到小排序的】"
    End If
    
    If Text1.text = "" Then
        MsgBox "请输入文件路径！", vbCritical, "提示："
        p = False
    ElseIf Dir(Text1.text) = "" Then
        MsgBox Text1.text & vbCrLf & "文件不存在！", vbExclamation, "提示："
        p = False
    Else
        file = Text1.text
        txt = Form1.Text1.text
        If MsgBox("确定要写入当前数据？" & vbCrLf & "当前数据是" & s, vbExclamation + vbOKCancel, "提示：") = vbOK Then
            Open file For Output As #1 '//打开目标文件，访问方式：顺序访问
               Write #1, Val(txt)
            Close #1 '//关闭目标文件
            MsgBox "写入完毕！", vbInformation, "提示："
        End If
    End If
    
End Sub

Private Sub Command2_Click()
    Dim file As String
    Dim txt As String
    Dim txtread As String

    If Text1.text = "" Then
        MsgBox "请输入文件路径！", vbCritical, "提示："
        Exit Sub
    ElseIf Dir(Text1.text) = "" Then
        MsgBox Text1.text & vbCrLf & "文件不存在！", vbExclamation, "提示："
        Exit Sub
    Else
        file = Text1.text
        txt = Form1.Text1.text
        Open file For Input As #1 '//打开目标文件，访问方式：顺序访问
            Do
                Line Input #1, txtread
                txt = txt & txtread
            Loop Until EOF(1) = True
        Close #1 '//关闭目标文件
    End If
    
    If txt = "" Then
        MsgBox "文件为空！", vbExclamation, "提示："
    ElseIf IsNumeric(txt) = False Then
        MsgBox "文件内包含非法字符", vbCritical, "提示："
    ElseIf Len(txt) < 3 Then
        MsgBox "文件内容不足三位数字", vbCritical, "提示："
    ElseIf IsNumeric(Mid(txt, 3, 1)) = False Then
        MsgBox "文件内容第3位不是数字！", vbCritical, "提示："
    Else
        MsgBox "文件符合要求！", vbInformation, "提示："
    End If

End Sub

'///////////////////////////////////////////////////////////////////////////////////////////////////////////////Form3

Option Explicit

Private Sub Form_Load()
    Dim num As Integer
    Dim i As Integer
    Dim j As Integer
    Dim space As String
    
    Show
    
    num = Val(Mid(Form1.Text1.text, 3, 1)) Mod 2
    
    If num = 0 Then
        For i = 1 To 9
            For j = 1 To i
                If j = 2 And i = 4 Or j = 2 And i = 3 Then
                    space = "  "
                Else
                    space = " "
                End If
                Print j & "×" & i & "=" & j * i & space;
            Next j
            Print
        Next i
    Else
        For i = 9 To 1 Step -1
            For j = 1 To i
                If j = 2 And i = 4 Or j = 2 And i = 3 Then
                    space = "  "
                Else
                    space = " "
                End If
                Print j & "×" & i & "=" & j * i & space;
            Next j
            Print
        Next i
    End If
    
    
End Sub

'///////////////////////////////////////////////////////////////////////////////模块文件

Option Explicit
Public p As Boolean
Public model As Integer

Public Function sort(content As String, style As Integer) '//排序函数，content 必选参数，需要排序的内容；style 必选参数，用于规定排序方式
    Dim a(9) As Integer
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim t As Integer
    
    For i = 0 To Len(content) - 1 '//给排序数组用赋值
        a(i) = Val(Mid(content, i + 1, 1))
    Next i
    
    '//排序方法：选择排序
    If style = 1 Then '//从小到大
        For j = 0 To Len(content) - 2
            For k = j + 1 To Len(content) - 1
                If a(j) > a(k) Then
                    t = a(j)
                    a(j) = a(k)
                    a(k) = t
                End If
            Next k
        Next j
    ElseIf style = 2 Then '//从大到小
         For j = 0 To Len(content) - 2
            For k = j + 1 To Len(content) - 1
                If a(j) < a(k) Then
                    t = a(j)
                    a(j) = a(k)
                    a(k) = t
                End If
            Next k
        Next j
    End If
    
    For i = 0 To Len(content) - 1 '//排序将结果交给文本框
        sort = sort & a(i)
    Next i
    
End Function

Public Function checkNumLen(content As String) '//条件检测函数，content 必选参数，需要排序的内容
    Dim i As Integer
    
    If Len(Form1.Text1.text) < 8 Or Len(Form1.Text1.text) > 10 Then
        If p = False Then
            Form1.Text1.BackColor = &HC0C0FF
            MsgBox "请输入8~10位的正整数", vbCritical, "提示："
            model = 0
            Form1.Text1.SetFocus
            p = True
            For i = 1 To Form1.Check1.UBound
                Form1.Check1(i).Value = 0
            Next i
            p = False
        End If
    Else
        checkNumLen = True
    End If
End Function

Public Function click(Obj As Object) '//点击检测函数
    Dim i As Integer
    
    If checkNumLen(Form1.Text1.text) = False Then
        Exit Function
    Else
        If Obj.Value = 1 Then
            For i = 1 To Form1.Check1.UBound
                If i <> Obj.index Then
                    Form1.Check1(i).Value = 0
                End If
            Next i
            Form1.Text1.text = sort(Form1.Text1.text, Obj.index) '//调用排序函数
        End If
    End If
    Form1.Text1.SetFocus
    Form1.Text1.SelStart = Len(Form1.Text1.text)

End Function