VB补充题：根据上课要求完成编程.在一个文本框中输入一个三位数，输出这三位数的个位数、十位数和百位数的

Posted 2023-02-14

VB编程题

'题目1
Global Pos As Integer
Global MatchCase As Boolean
Global SearchStr As String

Private Sub Check1_Click()
'单击“区分大小写”复选框，设置查找方式
If Check1.Value = 1 Then
MatchCase = True
Else
MatchCase = False
End If
End Sub

Private Sub Command1_Click()
'单击“查找”按钮的处理过程：
'1--根据是否“区分大小写”进行不同方式地查找
'2--如果找到，显示被找到的字符，否则，提示未找到信息

If MatchCase = True Then '如果以“区分大小写”方式查找
Pos = InStr(Pos + 1, FrmMain.Text1.Text, Text1.Text)
Else
Pos = InStr(Pos + 1, FrmMain.Text1.Text, Text1.Text, vbTextCompare)
End If

If Pos <> 0 Then '如果找到字符，则显示之
FrmMain.Text1.SelStart = Pos - 1
FrmMain.Text1.SelLength = Len(Text1.Text)
Else
MsgBox "没有找到字符 " & Chr$(34) & Text1.Text & Chr$(34)
End If
End Sub

Private Sub Command2_Click()
'单击“取消”按钮，退出“查找”窗体
Unload Me
End Sub

Private Sub Form_Load()
'加载“查找”窗体的初始化设置
Pos = 0
If MatchCase = True Then Check1.Value = 1
End Sub

Private Sub Text1_Change()
'当文本框内容发生变化，获取要查找的字符串
SearchStr = Text1.Text
End Sub

Option Explicit
Dim Modified As Boolean '文件正文是否被修改
Dim Saved As Boolean '文件是否保存
Dim FPath_Name As String '保存/打开文件的名称

Private Sub Form_Load()
'初始化模块级变量
Modified = False
Saved = False
FPath_Name = ""
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'关闭窗体前，判断文件正文是否被改变，并提示用户保存文件
Dim SaveIt As Integer
If Modified = True Then '正文改变
SaveIt = MsgBox("文件 " & Me.Caption & " 的正文已更改，是否保存更改？", vbYesNoCancel)
'单击“是”按钮，返回6，单击“否”按钮，返回7，单击“取消”按钮，返回2

If SaveIt = 2 Then Cancel = True: Exit Sub
If SaveIt = 6 Then
'打开“另存为”对话框
FrmMain.CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|" & _
"All Files (*.*)|*.*" '设置对话框文件类型
FrmMain.CommonDialog1.Flags = &H4
FrmMain.CommonDialog1.ShowSave

If CommonDialog1.FileName <> "" Then
'以下代码用于将当前文本框中的内容写入要保存的文件中
Open FrmMain.CommonDialog1.FileName For Output As #1
Print #1, Me.Text1.Text
Close #1
End If

End If
End If
Unload Me '卸载窗体
End Sub

Private Sub mnuCopy_Click()
'单击“复制”命令，将选定文本复制到剪贴板
Clipboard.SetText Text1.SelText
End Sub

Private Sub mnuCut_Click()
'单击“剪切”命令的操作
Clipboard.Clear '清空剪贴板内容
Clipboard.SetText Text1.SelText '设置剪贴板内容为选定文本
Text1.SelText = "" '删除文本框中选定内容
End Sub

Private Sub mnuDelete_Click()
'单击“删除”按钮，将选定的内容设置为空
Text1.SelText = ""
End Sub

Private Sub mnuFont_Click()
'单击“字体”命令，打开“字体”对话框，
'并根据用户的选取，设置文本框的字体格式。

On Error Resume Next '如果出现错误，忽略错误，继续执行
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.ShowFont '显示“字体”对话框

'以下过程为根据用户的设置，改变文本框中的字体格式
Text1.FontName = CommonDialog1.FontName '设置字体
Text1.FontBold = CommonDialog1.FontBold '设置是否以粗体显示
Text1.FontItalic = CommonDialog1.FontItalic '设置是否以斜体显示
Text1.FontSize = CommonDialog1.FontSize '设置字号
Text1.FontStrikethru = CommonDialog1.FontStrikethru '设置是否显示删除线
Text1.FontUnderline = CommonDialog1.FontUnderline '设置是否显示下划线
Text1.ForeColor = CommonDialog1.Color '设置字的颜色
End Sub

Private Sub mnuNew_Click()
'单击“新建”命令的处理：
'1--如果当前文件被修改，提示用户保存文件。
'2--初始化表示文件状态的变量，

Dim SaveIt As Integer

'如果文件正文被修改，提示用户保存文件
If Modified = True Then
SaveIt = MsgBox("文件 " & Me.Caption & " 的正文已更改，是否保存更改？", vbYesNoCancel)
'单击“是”按钮，返回6，单击“否”按钮，返回7，单击“取消”按钮，返回2

If SaveIt = 2 Then Exit Sub
If SaveIt = 6 Then
'以下代码用于打开“另存为”对话框
CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|All Files (*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then GoTo newfile

'以下代码用于将当前文本框中的内容写入要保存的文件中
Open FrmMain.CommonDialog1.FileName For Output As #1
Print #1, Me.Text1.Text
Close #1
End If
End If

'以下代码用于新建文件的初始化
newfile:
Text1.Text = ""
Me.Caption = "无标题"
Modified = False
Saved = False
FPath_Name = ""
End Sub

Private Sub mnuOpen_Click()
'单击“打开”命令的处理过程：
'1--如果当前编辑的文件内容被更改，提示用户保存文件
'2--显示“打开”对话框，选取打开的文件
'3--将选取的文件内容显示到文本框Text1中

Dim FileStr As String, FileN As String
Dim TempStr As String, DotPos As Integer
Dim SaveIt As Integer

'如果当前文件的内容有改变，提示用户保存文件
If Modified = True Then
SaveIt = MsgBox("文件 " & Me.Caption & " 的正文已更改，是否保存更改？", vbYesNoCancel)
'单击“是”按钮，返回6，单击“否”按钮，返回7，单击“取消”按钮，返回2

If SaveIt = 2 Then Exit Sub
If SaveIt = 6 Then
'以下代码用于打开“另存为”对话框
If FPath_Name <> "" Then CommonDialog1.FileName = FPath_Name
CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|All Files (*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowSave

'以下代码用于将当前文本框中的内容写入要保存的文件中
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End If
End If
End If

'以下代码用于显示“打开”对话框
CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|All Files (*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowOpen

If CommonDialog1.FileName = "" Then Exit Sub

'以下代码用于将用户选取的文件内容读入到变量FileStr中
FPath_Name = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
FileStr = ""
Do Until EOF(1) '将文件中的各行内容读入到变量FileStr中
Line Input #1, TempStr
FileStr = FileStr & TempStr
Loop
Close #1

Me.Caption = CommonDialog1.FileTitle '设置窗体的标题为被打开的文件名称
Text1.Text = FileStr '将文件内容显示到文本框中
OpenCanceled:

End Sub

Private Sub mnuPaste_Click()
'单击“粘贴”按钮，将剪贴板上的内容复制到文本框中
Text1.SelText = Clipboard.GetText
End Sub

Private Sub mnuPrint_Click()
'单击“打印”命令时，显示打印对话框，并打印文件内容

CommonDialog1.Flags = &H4
CommonDialog1.ShowPrinter '显示打印对话框
Printer.Copies = CommonDialog1.Copies '返回打印份数

Printer.Print Text1.Text '打印输出文件内容
End Sub

Private Sub mnuSave_Click()
'单击“保存”命令时的处理过程：
'1--打开“另存为”对话框，选取保存文件名称和路径
'2--将文本框中内容保存到指定文件中

'以下代码用于显示“另存为”对话框
CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|All Files (*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowSave
If FPath_Name <> "" Then CommonDialog1.FileName = FPath_Name
If CommonDialog1.FileName = "" Then Exit Sub

'以下代码用于将当前文本框中的内容写入要保存的文件中
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1

FPath_Name = CommonDialog1.FileName
Modified = False
Me.Caption = CommonDialog1.FileTitle '设置窗体标题为保存的文件名
End Sub

Private Sub mnuSaveAs_Click()
'单击“另存为”命令时的处理过程：
'1--打开“另存为”对话框，选取保存文件名称和路径
'2--将文本框中内容保存到指定文件中

'以下代码用于显示“另存为”对话框
CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|All Files (*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then Exit Sub

'以下代码用于将当前文本框中的内容写入要保存的文件中
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1

FPath_Name = CommonDialog1.FileName
Modified = False
Me.Caption = CommonDialog1.FileTitle '设置窗体标题为保存的文件名
End Sub

Private Sub mnuSearch_Click()
'单击“查找”命令时，打开“查找”窗体
FindFrm.Show
End Sub

Private Sub mnuSearchNext_Click()
'单击“查找下一个”命令时的处理过程：
'1--根据用户的选取，判断是否区分大小写查找
'2--如果查找到字符，显示之，否则，显示未找到提示

If MatchCase = True Then '如果需要在查找中区分大小写
Pos = InStr(Pos + 1, FrmMain.Text1.Text, SearchStr)
Else
Pos = InStr(Pos + 1, FrmMain.Text1.Text, SearchStr, vbTextCompare)
End If

If Pos <> 0 Then
'如果找到了指定的字符串，显示该字符串
FrmMain.Text1.SelStart = Pos - 1
FrmMain.Text1.SelLength = Len(SearchStr)
Exit Sub
Else
MsgBox "没有找到字符 " & Chr$(34) & SearchStr & Chr$(34)
End If
End Sub

Private Sub mnuSelectAll_Click()
'单击“全选”命令时，选取文本框的所有字符
Text1.SelStart = 0 '选取文本的起始位置
Text1.SelLength = Len(Text1.Text) '选取文本的字符个数
End Sub

Private Sub Text1_Change()
'当文本框内容发生变化时，设置变量值，以提示文件正文内容被改变
Modified = True
End Sub 参考技术A private sub form_click()
cls
t=len(text1)
if t<>3 then
print "请重新输入"
text1=""
else
a=val(text1.text)
b= a mod 10
c=int(a/10) mod 10
d=int(a/100)
print "个位数"；b ,"十位数；" c ,"百位数"；d
end if
end sub 参考技术B Label1.Text = Mid(TextBox1.Text, 1, 1)
Label2.Text = Mid(TextBox1.Text, 2, 1)
Label3.Text = Mid(TextBox1.Text, 3, 1) 参考技术C TextBox2.Text = Mid(TextBox1.Text, 1, 1)
TextBox3.Text = Mid(TextBox1.Text, 2, 1)
TextBox4.Text = Mid(TextBox1.Text, 3, 1)