请选择 进入手机版 | 继续访问电脑版

好优扒教育

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
好优扒教育 Access程序设计
订阅

Access程序设计

Office2010下载
Office2010下载
2018-6-5 14:51
2018.5.11 数据库访问
Option Compare Database'访问“用户”表进行增删改查Private Sub Cmd_Add_Click()'添加一条记录,用户名为123456,密码为654321'第一步 定义相关的变量 Dim Conn As New ADODB.Connection Dim rst As New ADODB.Reco ...
2018-5-15 15:23
2018.5.8 for循环
Option Compare DatabasePrivate Sub Command0_Click()'例8.16 1-100之间奇数和 Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 Step 2 sum = sum + i Next MsgBox "sum=" sumEnd SubPrivate Sub C ...
2018-5-8 15:27
do loop循环 2018.5.4
Option Compare DatabasePrivate Sub cmd_1_Click()'计算1+2+3+...100之和Dim sum As Integer Dim n As Integer 'n 是循环变量 n = 1 '循环变量的初值 sum = 0 '累加和初值 Do Until n 100 '循环条件 '循环体 sum ...
2018-5-4 08:52
Access授课资源下载
Access资源下载
2018-1-19 10:41
2017年上半年Access笔试真题参考答案
Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4 2017年上半年Access程序设计笔试真题参考答案 一、填空题(每题1分,共30分) 1、表 2、关系 3、选择查询 4、F1 5、冗余 6、 ...
2017-12-29 19:05
2017年上机模拟题第10套
Private Sub Cmd1_Click() Dim s As Double Dim i As Integer Dim n As Integer n = Text1 If Combo1.Value = "和" Then s = 0 For i = 1 To n s = s + i Next ElseIf Combo1.Value = "积" Then ...
2017-11-30 21:23
2017年上机模拟题第9套
Private Sub Cmd1_Click() Dim x As Double Dim y As Double x = Text1 If x 0 Then y = 2 * x + 3 ElseIf x 3 Then y = 3 - 6 * x Else y = 4 - 2 * x End If Text2 = yEnd SubPrivate Sub Cmd2 ...
2017-11-30 21:18
2017年上半年上机模拟题第8套编程题
Option Compare DatabasePrivate Sub Cmd1_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim SEX As ADODB.Field, CSRQ As ADODB.Field Dim Nan As Integer, Nan_s As Integer 'Nan ...
2017-11-30 21:16
2017年上机模拟题第7套-编程题
Private Sub Cmd1_Click() Dim i As Integer Dim N As Integer Dim s As Double N = Text1 For i = 1 To N If i Mod 2 = 1 Then s = s + 1# / i Else s = s - 1# / i End If Next Tex ...
2017-11-30 21:08
2017年上半年模拟题上机题-第3套编程题
' 定义相关全局对象变量Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim zkzh As ADODB.FieldDim xm As ADODB.FieldDim bscj As ADODB.FieldDim jscj As ADODB.FieldPrivate Sub Cmd1_Click() ...
2017-11-30 20:34
2016年下半年安徽省计算机水平考试Access数据库程序设计真题参考答案 ...
Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4 2016年12月Access考试真题参考答案 一、 填空题 1、表 2、关系 3、选择查询 4、F1 5、冗余 6、查询 7、控件 8、Select Query ...
2017-6-21 22:38
2017上半年上机模拟题-第6套
Option Compare DatabaseDim cn As New ADODB.Connection '连接对象Dim rs As New ADODB.RecordsetDim ys As ADODB.Field, sdq As ADODB.FieldDim tx As ADODB.Field, qt As ADODB.FieldDim m As ADO ...
2017-6-18 20:54
2017年上半年上机模拟题-第5套编程题
Option Compare DatabasePrivate Function prime(N As Integer) As Boolean Dim i As Integer For i = 2 To N - 1 If N Mod i = 0 Then prime = False Exit Function End If Next i prime = TrueEnd FunctionP ...
2017-6-18 20:48
2017年上半年上机模拟题-第4套编程题
Private Sub Cmd1_Click() Dim str As String Dim x As Integer str = Chr(Rnd * 127 + 1) Text1 = str x = Asc(str) If x = 65 And x = 90 Then Text2 = "大写字母" ElseIf x = 97 And x = 122 Then T ...
2017-6-18 20:43
12下一页

关注微信公众号

Archiver|手机版|小黑屋|好优扒教育 ( 皖ICP备14016797号-2

GMT+8, 2019-8-26 17:20 , Processed in 0.046875 second(s), 12 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部