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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VB补充题:根据上课要求完成编程.在一个文本框中输入一个三位数,输出这三位数的个位数、十位数和百位数的相关的知识,希望对你有一定的参考价值。

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)

以上是关于VB补充题:根据上课要求完成编程.在一个文本框中输入一个三位数,输出这三位数的个位数、十位数和百位数的的主要内容,如果未能解决你的问题,请参考以下文章

在VB程序编程中,在textbox的文本框中录入的文字怎么让他在文本框中移动呢

使用 vb.net 创建字母数字键盘

在VB中怎么用代码弹出输入对话框

Java编程(基于图形界面)从文件中读出数据,显示在文本框中

VB:编程计算三角形面积

vb读取txt内容到vb文本框中