单击
  1. 首页
  2. 单击

列表

.Net高仿百度网盘文件分享网站系统源码 带分享与会员功能

.Net高仿百度网盘文件分享网站系统源码 带分享与会员功能

.Net高仿百度网盘文件分享网站系统源码 带分享与会员功能-----------------------------创建无限级文件夹，上传文件，可进行删除，下载，分享等功能，异步上传。 无限级文件夹：可在根目录中创建文件夹，点击文件夹即可进入下一级目录，可上传文件或新建目录 下载：单击列表中的文件即可下载文件 分享：用户分享文件链接会生成提取码，其它用户进入该链接需输入提取码比对，正确的进入
伍号仓库 2021年01月09日
啊估收藏夹（记事便笺＋网站收藏） v2.2.1

啊估收藏夹（记事便笺＋网站收藏） v2.2.1

**啊估收藏夹（记事便笺＋网站收藏）**是一款简单的收藏夹网站系统：记事便笺、网站收藏。单用户版，登陆失败锁定程序（默认：同一IP地址在2分钟以内，连续登陆失败10次，系统自动限制IP地址60分钟。）。登陆成功/失败、退出、添加/修改/删除记事便笺/网站收藏自动记录日志，记事便笺/网站收藏搜索功能。就三个文件：ASP 程序文件，PNG 图片文件，Access 数据库文件。ASP 文件名称可以随意修
伍号仓库 2020年05月14日
已知程序如下：Private Sub s(x As Single, y As Single) Dim m As Single m = x x = m / y y = t Mod yEnd SubPrivate Sub Command1_Click() Dim a As Single, b As Single a = 8 b = 5 Call s(a, b) Print a, bEnd Sub试问：当单击命令按钮后，输出为[______]。

已知程序如下：Private Sub s(x As Single, y As Single) Dim m As Single m = x x = m / y y = t Mod yEnd SubPrivate Sub Command1_Click() Dim a As Single, b As Single a = 8 b = 5 Call s(a, b) Print a, bEnd Sub试问：当单击命令按钮后，输出为[______]。

已知程序如下：Private Sub s(x As Single, y As Single) Dim m As Single m = x x = m / y y = t Mod yEnd SubPrivate Sub Command1_Click() Dim a As Single, b As Single a = 8 b = 5 Call s(a, b) Print a, bEnd Sub试问：
贰号仓库 2022年06月06日
一个窗体单击事件过程如下：Private Sub Form_Click()   Dim n As Integer, x As String   x =""   For n = 0 To 2     x = x + Chr(Asc("A") + n * 2)   Next n   Print xEnd Sub试问：当单击窗体后，输出为[______]。

一个窗体单击事件过程如下：Private Sub Form_Click()   Dim n As Integer, x As String   x =""   For n = 0 To 2     x = x + Chr(Asc("A") + n * 2)   Next n   Print xEnd Sub试问：当单击窗体后，输出为[______]。

一个窗体单击事件过程如下：Private Sub Form_Click()   Dim n As Integer, x As String   x =""   For n = 0 To 2     x = x + Chr(Asc("A") + n * 2)   Next n   Print xEnd Sub试问：当单击窗体后，输出为[______]。ACE
贰号仓库 2022年06月08日
一个窗体单击事件过程如下：Private Sub Form_Click()  X = Val(Text1.Text):Y = Val(Text2.Text)  If X = 0 Or Y = 0 Then Print"不在任何象限内": Exit Sub  If X > 0 And Y > 0 Then Print"IN A"  If X > 0 And Y   If X 0 Then Print"IN B&quo

一个窗体单击事件过程如下：Private Sub Form_Click()  X = Val(Text1.Text):Y = Val(Text2.Text)  If X = 0 Or Y = 0 Then Print"不在任何象限内": Exit Sub  If X > 0 And Y > 0 Then Print"IN A"  If X > 0 And Y   If X 0 Then Print"IN B&quo

一个窗体单击事件过程如下：Private Sub Form_Click()  X = Val(Text1.Text):Y = Val(Text2.Text)  If X = 0 Or Y = 0 Then Print"不在任何象限内": Exit Sub  If X > 0 And Y > 0 Then Print"IN A"  If X > 0 And Y   If X 0 T
贰号仓库 2022年06月08日
已知程序如下：Private Sub p() Static s As Integer Dim i As Integer For i = 1 To 10 Step 2   s = s + i Next i Print s;End SubPrivate Sub Command1_Click() Call pEnd Sub试问：当三次单击命令按钮后，输出为[______]。

已知程序如下：Private Sub p() Static s As Integer Dim i As Integer For i = 1 To 10 Step 2   s = s + i Next i Print s;End SubPrivate Sub Command1_Click() Call pEnd Sub试问：当三次单击命令按钮后，输出为[______]。

已知程序如下：Private Sub p() Static s As Integer Dim i As Integer For i = 1 To 10 Step 2   s = s + i Next i Print s;End SubPrivate Sub Command1_Click() Call pEnd Sub试问：当三次单击命令按钮后，输出为[______]。25 50 75
贰号仓库 2022年06月08日
一个窗体单击事件过程如下：Private Sub Form_Click()  Dim a As Integer, b As Integer, c As Integer  a = 6 : b = 15  c = a * b  If a > b Then     a = a - b  Else     b = b - a  End If  Print a, b, c / bEnd Sub试问：当单击窗体后，输出为___________。

一个窗体单击事件过程如下：Private Sub Form_Click()  Dim a As Integer, b As Integer, c As Integer  a = 6 : b = 15  c = a * b  If a > b Then     a = a - b  Else     b = b - a  End If  Print a, b, c / bEnd Sub试问：当单击窗体后，输出为___________。

一个窗体单击事件过程如下：Private Sub Form_Click()  Dim a As Integer, b As Integer, c As Integer  a = 6 : b = 15  c = a * b  If a > b Then     a = a - b  Else     b = b - a  End If  Print a, b, c / bEnd Sub试问：当
贰号仓库 2022年06月07日