下面这些代码是一个小小的整人程序： Private Sub Form_Load()
Me.Left = -10000
Me.Top = -10000
Do While 1 = 1
Me.Visible = Not Me.Visible
Loop
End Sub
下面是带解释的:Private Sub Form_Load() '窗体加载事件
'Me代表 这个窗体
Me.Left = -10000 '设置这个窗体的左边与屏幕的左边之间的距离为-10000，其实也就是使窗体在屏幕的左边-10000处
Me.Top = -10000 '设置这个窗体的顶部与屏幕的顶部之间的距离为-10000，其实也就是使窗体在屏幕的上边-10000处
Do While 1 = 1 'Do循环，条件为 1=1，因为 1=1 是成立的，即 True ，所以就形成个死循环
Me.Visible = Not Me.Visible '使这个程序的可见性 改变，例如 原来为可见的，运行一次这个代码后，就变成不可见的， Not 是用来 否定 那个值的
Loop
End Sub
用VB6.0做一个简易的小程序。当作业，要算分数的。跪求高手
VB6.0连接EXCEL设置方法
1. 工程 引入 Microsoft Excel 12.0 Object Library ，这里的12.0 可能会因为office版本不同而不同。
2. 代码程序通用部分定义
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
3.打开EXCEL文件
CommonDialog1.ShowOpen '选择文件路径
Text1.Text = CommonDialog1.FileName '将路径给TEXT1.TEXT
filePath = Text1.Text
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = ture '设置EXCEL对象可见
Set xlBook = xlApp.Workbooks.Open(filePath) '打开EXCEL工作簿
Set xlSheet = xlBook.Worksheets(1) '设置活动工作表sheet,可以按名字可以可以按序号
Text2(0).Text = xlSheet.Cells(6, 1) '将A6内容填入TEXT2(0).TEXT
Text2(1).Text = xlSheet.Cells(7, 1) 'A7
Text2(2).Text = xlSheet.Cells(8, 1) 'A8
Text2(3).Text = xlSheet.Cells(9, 1)
Text2(4).Text = xlSheet.Cells(10, 1)
Public x As Boolean
Public oper As Integer
Public z As String
Public result As String
Private Sub Command1_Click(Index As Integer)
If x Then
Text1.Text = ""
x = False
Text1.Text = Text1.Text + CStr(Index + 1)
Else
Text1.Text = Text1.Text + CStr(Index + 1)
End If
End Sub
Private Sub Command2_Click()
x = True
oper = Int(Text1.Text)
z = "/"
End Sub
Private Sub Command3_Click()
x = True
oper = Int(Text1.Text)
z = "-"
End Sub
Private Sub Command4_Click()
x = True
oper = Int(Text1.Text)
z = "+"
End Sub
Private Sub Command5_Click()
x = True
oper = Int(Text1.Text)
z = "*"
End Sub
Private Sub Command7_Click()
Select Case z
Case "/"
result = CStr(oper / Int(Text1.Text))
Case "-"
result = CStr(oper - Int(Text1.Text))
Case "*"
result = CStr(oper * Int(Text1.Text))
Case "+"
result = CStr(oper + Int(Text1.Text))
End Select
Text1.Text = result
End Sub
Private Sub Command8_Click()
Text1.Text = ""
End Sub
简单的计算器程序自己添加控件
本文来自作者[烈焰滔滔]投稿，不代表泰博号立场，如若转载，请注明出处：https://www.staplesadv.cn/ds/30208.html
评论列表（3条）
我是泰博号的签约作者“烈焰滔滔”
本文概览：下面这些代码是一个小小的整人程序： Private Sub Form_Load() Me.Left = -10000 Me.Top = -10000 Do W...
文章不错《谁给我一个用VB6.0写的整人小程序啊》内容很有帮助