99问答网
所有问题
当前搜索:
vb小程序设计大作业
用
vb
编写一个
小程序程序
答:
新建一个文本框Text1,Text属性为空,MultiLine属性为True,ScrollBars属性为2。新建一个命令按钮Command1,添加以下代码:Private Sub Command1_Click()Dim i As Integer For i = 1 To 100 If (i Mod 5 = 0)And (i Mod 3 <> 0)Then Text1.Text = Text1.Text & vbCrLf & i Next End ...
谁知道怎样用
VB
制作
小程序
(具体步骤最好有图)
答:
---制作“Hello.NET”程序 作者:高山 用下面很简单的方法,就可以制作一个“Hello.NET”
小程序
,同时可以掌握一些控件的用法。Public Class Form1 Inherits System.Windows.Forms.Form Region " Windows 窗体
设计
器生成的代码 "Public Sub New()MyBase.New()'该调用是 Windows 窗体设计器所必需的。I...
用
VB
写一个
小程序
.
答:
vb6代码如下,添加模块,工程--属性--启动对象选择sub main Sub main()Open "c:\temp\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1),
vb
Unicode)End Sub
vb
环境下编制一
小程序
答:
你好,你想问的是如何使用
VB
编写一个简单的
小程序
吧?在桌面上,鼠标左键双击程序,在打开的VB6主界面上,左边是工具菜单栏,单击标签按钮,在Form1窗口上,绘制出一Label1,然后在其属性窗口上改个名字,如Caption为第一数。接着,用同样的方法,在Form1窗口上绘制出第二数,并且在左边工具菜单栏,...
求
设计
两个
vb
简单易操作
小程序
,要有主题,简单一点儿的~适合大一的...
答:
求
设计
两个
vb
简单易操作
小程序
,要有主题,简单一点儿的~适合大一的~ 20 请压缩发我邮箱吧。。。好的话会加分的~一定要是原创哦~我的邮箱
[email protected]
... 请压缩发我邮箱吧。。。好的话会加分的~一定要是原创哦~ 我的邮箱
[email protected]
展开 我来答 ...
做两个
VB程序
简单题目
答:
1.用
VB
编
程序设计
一个简易的计算器 代码:Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + "." Case 1...
vb程序设计
题,请高手解答
答:
Vb
编程实现两个有序数组的合并,即二路归并 数组A和数组B分别记录有一些数据,这两个数组上的数据都已经由小到大按顺序排列好。请用
vb
编写一个
程序
把这此数据合并到同一个数组之中,并使得合并后的数据全部按由小到大排列。这就是所谓的“二路归并”。在编写这个程序时先进行说明一下,首先,大量...
用
VB
做一个简单的
小程序
答:
Private Sub Command1_Click() Me.Cls Dim N As Integer, i As Integer N = InputBox("n=", , 9) For i = 1 To 2 * N - 1 If i <= N Then Print Space(N - i) + String(2 * i - 1, CStr(i)) Else Print Space(N - (2 * N - i)) + String...
大一
VB程序设计
题目求 大神帮忙
答:
Dim a As Integer, b As Integer, t As Integer, s As IntegerPrivate Sub Command1_Click()If Option1.Value = True ThenMsgBox a & "+" & b & "=" & Str(a + b)ElseIf Option2.Value = True ThenMsgBox a & "-" & b & "=" & Str(a - b)End IfEnd IfText3.SetFocus...
用
vb
编一段
小程序
,有追加分100分
答:
Next End Sub Private Sub Presskey(Index As Integer)Dim t As Single t = Timer Do Until Timer - t - 0.5 > 0 DoEvents Loop Select Case Index Case 0 SendKeys " " '空格键 Case 1 SendKeys "{DOWN}" '方向键下 Case 2 SendKeys "{ENTER}" '回车键 Case 3 SendKeys "{LEFT...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb编写各种趣味小程序
vb作业做一个程序
VB爱心代码简短
vb程序设计经典例题代码
vb程序设计例题
大一vb程序设计题库
vb好玩的代码
vb经典例题
vb程序设计经典例题