- 博客(5)
- 资源 (1)
- 收藏
- 关注
RSS订阅转载 vb循环 Do While…Loop 语句/Do Until…Loop语句
实验内容 1\掌握使用Do While…Loop /Do Until…Loop语句进行循环控制 2\从页面输入一个值n，计算1+2+3+4+。。。+n的和（分别用Do While…Loop /Do Until…Loop语句做一遍） 3\从页面输入一个值n，计算n!的值（分别用Do While…Loop /Do Until…Loop语句做一遍） 编写实验报告。 代码 Do While…Loop 版本...
2019-12-26 22:29:59
3963
转载 vb运行时弹出对话框或者提示上的标题
VB对话框的显示按钮的问题：msgbox(“请选择一个按钮”,322，“按钮实验”)其中数字322就是表示按钮类型和显示在对话框中的图形，下面总结如下： 1、按钮的类型与对应值： 显示"确定"按钮，对应值：0 显示"确定"和"取消"按钮，对应值：1 显示"放弃"、“重试"和"忽略"按钮，对应值：2 显示"是”、"否"和"取消"按钮，对应值：3 显示"是"和"否"按钮，对应值：4 显示"重试"和"取...
2019-11-29 22:58:07
1852
原创 VB中的IF语句
Private Sub Command1_Click() Dim a As String, b As String a = Me.Text1.Text b = Me.Text2.Text If Val(a) = Val(b) Then MsgBox "a与b输入点相同", 64, "提示" Else If Val(a) < Val(b) Then MsgBox "a小于b输入点", 6...
2019-11-29 22:52:00
899
原创 VB中的IF语句
Private Sub Command1_Click() Dim a As String, b As String a = Me.Text1.Text b = Me.Text2.Text If Val(a) = Val(b) Then MsgBox “a与b输入点相同” Else If Val(a) < Val(b) Then MsgBox “a小于b输入点” Else If Val(a) ...
2019-11-29 22:35:50
1397
转载 VBS编辑字段
'为已经创建好的数据表添加字段 '参数：strDBPath 字符串型 数据库路径 '参数：strTableName 字符串型 需要创建的数据表的名称 '参数：strColumnName 字符串型 需要添加的字段名称 '参数：strColumnType 字符串型 需要添加的字段数据类型 Sub AddColumn(strDBPath, strTableName, strColumnName, str...
2019-11-21 21:54:56
390
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人