跪求用vb程序写一个诗歌生成器
由于你没有说明每个按键的作用，我写的是只要按“开始”按钮后“第n句”和“题目”按钮才起作用，有提醒功能。第n句按钮随第几句变化。按题目按钮全诗显示，当然也可改为只显示题目。
楼上思路不对。你可以建立4个数据库,第一个用来保存诗,并给每首诗一个独立的编号；第二个保存作者与其生平；第三个与第一个类似,保存常见诗句,加上与第一个数据库相同的编号，作用是提高查询效率；第四个用来保存查询历史，可省。下面是具体实现过程：
在文本框中输入诗句，采用模糊搜索检索第三个数据库。若有，将诗歌显乐在第一个Label中,再通过诗歌的编号查询第二个数据库，将结果显示在第二个Label中,再将其次查询的内容存入第四个数据库；若无,则.继续检索第一个数据库,下面与“若有”后面相似；若这诗数据库中没有录入,那么自动打开IE,自动打开google自动键入文本框内内容搜索。
编写比较复杂,数据库录入工作量很大，要有耐心。不过如今互联网发达,这个程序收益不会有多大。
由于你没有说明每个按键的作用，
我写的是只要按“开始”按钮后“第n句”和“题目”按钮才起作用，有提醒功能。
第n句按钮随第几句变化。
按题目按钮全诗显示，当然也可改为只显示题目。
逐行手敲，亲测可用，有问题可以问我。
Dim timera As Integer
Dim timerb As Integer ' 定单击事件变量
Private Sub Command1_Click()
timera = 1
End Sub
Private Sub Command2_Click()
timerb = timerb + 1
If timera = 1 Then
If timerb = 1 Then
Label1.Caption = "弹冠振衣抚长剑，"
End If
If timerb = 2 Then
Command2.Caption = "第二句"
Label1.Caption = "扬鞭策马啸西风。"
End If
If timerb = 3 Then
Command2.Caption = "第三句"
Label1.Caption = "牵马独走天涯，品冷月无边。"
End If
If timerb = 4 Then
Command2.Caption = "第四句"
Label1.Caption = "枯灯黄卷里，寻剑在谁手。"
End If
If timerb > 4 Then
Command2.Caption = "全诗结束"
Label1.Caption = " 无题" + vbCrLf + vbCrLf + "弹冠振衣抚长剑，" + vbCrLf + "扬鞭策马啸西风。" + vbCrLf + "牵马独走天涯，品冷月无边。" + vbCrLf + "枯灯黄卷里，寻剑在谁手。"
End If
End If
If timera <> 1 Then
Label1.Caption = "提醒：请先单击开始按钮！！！"
End If
End Sub
Private Sub Command3_Click()
If timera = 1 Then
Label1.Caption = " 无题" + vbCrLf + vbCrLf + "弹冠振衣抚长剑，" + vbCrLf + "扬鞭策马啸西风。" + vbCrLf + "牵马独走天涯，品冷月无边。" + vbCrLf + "枯灯黄卷里，寻剑在谁手。"
End If
If timera <> 1 Then
Label1.Caption = "提醒：请先单击开始按钮！！！"
End If
End Sub
用vb编写一个程序
模拟按键 是一个函数 SendKey 。写输出就行了。40min循环一次你需要用那个小表样的计时器就OK。不是大问题。参考吧：vbs SendKey用法 简单说,这个命令就是模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:object.SendKeys string "object":表示WshShell对象 ...
设计一个VB程序,如下图所示。使用三个滚动条作为三种基本颜色的输入工具...
End Sub Private Sub HScroll2_Change() '绿色 Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End Sub Private Sub HScroll3_Change() '蓝色 Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End Sub '先用上面的代码调试，...
用VB设计一个程序?
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。说明 如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID...
用VB编写一个计算器程序的代码
2、各控件组其属性设置如下：设置效果如下图所示：二、编写代码 Dim s1 As Single， s2 As Single， ysf As String ‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符 Private Sub Command1_Click（Index As Integer）Text1.Text = Text1.Text & Command1（Index）.Caption ’...
求助,用VB编写一个程序,每步后面都有具体的解释,并写一份该程序的使用...
这么简单的东西 程序的具体编制操作如下：1. 在VB6.0编程环境中，新建一个工程Project1。2. 在Project1中添加模块Modulel，在工程属性中将工程名称改为HiddenMen，应用程序标题也改为HiddenMen（以下程序都经过实际运行测试，可以原样复制使用）。在模块Module1中加入如下声明：Public Declare Function ...
用VB做一个这样的程序?
Public dj As Integer Private Sub Command1_Click()If dj > 2 Then MsgBox "你本周已经点过2次这个按钮了，不能再多点了。"Exit Sub Else dj = dj + 1 Open "c:\\djcs" For Output As #1 Print #1, dj Close #1 End If End Sub Private Sub Form_Load()If Dir("c:\\djcs") <>...
如何用VB语言设计一个抢答器
1、首先打开VB程序，新建一个工程。2、这里我们选择“标准EXE”，单击“确定”按钮。3、该软件的界面还是比较简洁的，左边是常用的工具箱，右边是相关的属性栏目。先把我们要制作的软件命名，如图，在“caption”后面输入“抢答器”。4、选择“commandbutton”工具，在目标区域用鼠标拖动画出一个按钮，在...
用VB编写一个简单公式程序
界面如上图所示， 其中公式用OLE 控件绘制，将该控件绘制到窗体中，点击右键，插入对象，选择microsoft 公式3 ，即可编辑。代码如下：Private Sub Command1_Click()Dim x, n As Integer Dim p, q As Single If (Val(Text1.Text) >= 0) And (Val(Text1.Text) >= 0) Then n = Val(Text...
如何用VB编写一个简单的减法程序?
Private Sub Command1_Click()'文本框Text3的内容等于Text1的数值减去Text2的数值 '其中Val 函数用来返回字串表达式的数值 Me.Text3.Text = Val(Me.Text1.Text) - Val(Me.Text2.Text)End Sub
用VB编写一个程序
Module Module1 Sub Main()Dim A(,) As Integer = {{1, 2, 3, 4, 5, 6, 7, 8, 9, 0}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}, {1, 2, 3, 4, 5, 6, 7, 8, 9...
平茂欣康： 网络上有现成的软件的!真要写也要数据库显示的时候就以查寻方式zhidao获得就可以了如果定时换词就用timer控件延时就要以,稍作改动可以作长延时的没什么特回别难度,只是特烦去学习一下读答数据库及查数据库的语法及语句就可以自己做了,必要时可以做一个添加程序
金门县19530594125： vb 生成器？
平茂欣康： 1、新建个文本文档,然后在里面输入111,保存在C盘根目录,文件名为01.txt. 2、打开VB,新建一个窗体,创建3个按钮和1个文本框. 3、打开代码,输入以下代码: Option Explicit Rem 本程序为文本文档的读入并保存的实例程序,真正使...
金门县19530594125： 跪求答案: 用VB编写一个程序,要求是从三个数字中选出一个最大的数字和一个最小的数字 - ？
平茂欣康： 这么简单,不用跪的.假设用了三个文本框放入三个数,用一个标签显示最大,文本框名为a1,a2,a3 标签:pr aa是数组 可以定义为:dim aa(10)'其实10以下不用定义 做个命令按纽,代码如下:aa(1)=val(a1) aa(2)=val(a2) aa(3)=val(a3) zd=aa(1) for i=2 to 3 if zd<aa(i) then zd=aa(i) next pr.caption=zd
金门县19530594125： 编写一个VB程序运行时,鼠标单击窗体,按一次在窗体上显示“春晓”诗一句,显示完整,清除窗体重新显示. - ？
平茂欣康： Dim n% Private Sub Form_Click() n = n + 1 If n Mod 5 = 1 Then Print ＂春眠不觉晓＂ ElseIf n Mod 5 = 2 Then Print ＂处处闻啼鸟＂ ElseIf n Mod 5 = 3 Then Print ＂夜来风雨声＂ ElseIf n Mod 5 = 4 Then Print ＂花落知多少＂ Else Form1.Cls End If End Sub
金门县19530594125： 用VB设计一个程序,将输入的字符串以反序显示 - ？
平茂欣康： Private Sub Command1_Click() Dim S As String, T As String S = InputBox(＂输入一个字符串＂) Print T Dim I As Integer For I = Len(S) To 1 Step -1 T = T & Mid(S, I, 1) Next Print T End Sub最简单的Private Sub Command1_Click() Dim S As String, T As String S = InputBox(＂输入一个字符串＂)'T = StrReverse(S) End Sub
金门县19530594125： 用vb写一个程序？
平茂欣康： 要弄个注册表,然后在把时间里改为12,END结束语法,镶入,执行程序里面,最后赋值!!!
金门县19530594125： 用VB写一个程序!很紧急!高手的速度进! - ？
平茂欣康： 在VB中实现任意文件的16进制方式察看 这是我利用文件操作方法编写的文件16进制察看软件.本来是可以利用UltraEdit来干这件事的.我编写的目的就是想看一下自己能不能编出来.于是我就用VB编了一下,先前我只是把源代码直接放到网上...
金门县19530594125： vb怎么写exe文件生成器？
平茂欣康： 怎么样写EXE? 将模版Copy到指定目录,直接在后面添加(写)脚本(可以加密) 可以用类似HTML的标识符分隔.如 .(EXE文件) <Script> xxx.. </Script> <Picture> . </picture> 怎么样读该文件.(自己读自己) 首先:(按文本读取,或者用二...
金门县19530594125： 如何用VB制作出可生成EXE文件的程序? - ？
平茂欣康： 已有程序“A.exe”,通过资源文件方式或二进制方式将“A.exe”写入到文件“B.exe”;“B.exe”程序运行时,释放出“A.exe”,如果是这样子的话,是可以实现的.要想凭空实现生成“C.exe”文件的话,恐怕很难,至少我不会.
金门县19530594125： vb怎么写exe文件生成器 - ？
平茂欣康： 将被生成的EXE文件做成资源文件,添加到你的程序中,然后在程序中释放这个资源文件 下面的示例是将一个OCX文件释放出来,EXE文件是一样的道理 Sub Main() Dim Ocx() As Byte 'OCX是个Btye类型的数组 Dim Counter As Long Ocx = ...
