需要一个VB程序设计。
给你一个哈希加密算法的代码Private Sub Initialize(ByVal vKeyString As String) Dim intI As Integer, intJ As Integer Randomize(Rnd(-1)) '得到初始值（种子值） '每次调用初始值均相同 '根据初始值（种子值）得到随机数序列，每次调用Initialize时，初始值均相同。只要vKeyString相同，所产生的随机数序列一定相同 For intI = 1 To Len(vKeyString) intJ = Rnd(-Rnd * AscW(Mid(vKeyString, intI, 1))) Randomize(intJ) Next intI End Sub Public Sub DoXor(ByRef msFileText As String) Dim intC As Integer Dim intB As Integer Dim lngI As Long For lngI = 1 To Len(msFileText) intC = AscW(Mid(msFileText, lngI, 1)) intB = Int(Rnd() * 2 ^ 7) '选用< =127可正确处理汉字，ChrW(n):n 有一个范围 Mid(msFileText, lngI, 1) = ChrW(intC Xor intB) Next lngI End Sub Public Function Hash(ByVal ET As String) As String Dim BitLenString As String, KeyString As String, FileText As String BitLenString = "12345678" KeyString = ET & BitLenString Call Initialize(KeyString) '根据KeyString产生随机数序列 FileText = ET & BitLenString Call DoXor(FileText) '根据上述随机数序列对FileText加密 KeyString = FileText Call Initialize(KeyString) '根据上述的加密结果产生新的随机数序列 FileText = BitLenString Call DoXor(FileText) '根据上述随机数序列对FileText加密，8位字符 Hash = FileText '8位字符送作HASH值 End Function Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Dim str As String = "abcd" & vbCrLf TextBox6.Text = str & Hash(str) End Sub
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As Integer
Dim j As Double
For i = 100 To 999
a = i \ 100
b = (i Mod 100) \ 10
c = i Mod 10
j = a ^ 3 + b ^ 3 + c ^ 3
If i = j Then
Print i
End If
Next i
End Sub
晕。题目中应该是135=1^3+3^3+5^3，135才是水仙花数。这个作业经久不衰啊，十几年前我买的书就有这道题，怎么没有老师肯花点心思去授课？没有老师肯去思考怎么样才能真的教会学生，怎么样测试才能真的测出学生的水平？？
发到你的邮箱了，包括exe文件和工程文件
什么是VB程序设计?
VB程序设计是一种使用Visual Basic编程语言进行软件开发的过程。Visual Basic（简称VB）是由微软公司开发的一种高级编程语言，它采用面向对象和事件驱动的编程方式，旨在让程序员能够更快速、更简单地开发出Windows应用程序。VB程序设计的特点之一是易于学习。它采用了类似英语的自然语法，使得程序员可以更容易...
VB程序设计一般的四个步骤
1、建立应用程序界面 2、设置对象的属性 3、编写应用程序的代码 4、保存和运行程序 VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一...
vb程序设计:随机产生一个三位正整数,然后逆序输出该数,产生的数与逆序...
Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer Dim i As Integer, j As String i = 100 + Int(Rnd * 900)a = Int(i \/ 100)b = i Mod 100 c = b Mod 10 b = Int(b \/ 10)j = c & b & a MsgBox i & "," & jEnd Sub ...
关于一个VB程序设计
程序界面如上图所示：一个标签（名称为Label1)，三个复选框（名称分别为Check1、Check2和Check3,Caption属性分别为红、绿和蓝）一个命令按钮（名称为Command1,Caption属性为结束）,完成程序功能的代码如下：Dim red As IntegerDim green As IntegerDim blue As Integer Private Sub Check1_Click()If ...
vb程序设计实验内容1.程序中加入三个文件系统控件,让他们同步?
以下是实现在 VB 程序中加入三个文件系统控件并让它们同步的步骤：1. 打开 Visual Basic 程序，并创建一个新项目。2. 在窗体上添加三个文件系统控件，例如 `DriveListBox`、`DirListBox` 和 `FileListBox`。可以通过拖放的方式将这些控件添加到窗体上。3. 设置每个控件的主要属性，如下所示：- `...
VB的程序开发步骤?
Visual Basic (VB) 程序开发的步骤如下：定义需求：明确程序的目的和功能，为下一步的设计制定蓝图。设计：制定程序的流程图和界面设计。创建项目：使用 Visual Studio 创建一个新的 Visual Basic 项目，并选择合适的模板。编写代码：编写程序的主要代码逻辑。测试：使用 Visual Studio 内置的调试功能对...
使用VB进行程序设计有哪些步骤
设计一个简易的打字测试程序，单击“开始”按钮，计时开始，输入字符；单击“结束”按钮，程序输出打字速度。（1）启动VB，新建一个VB标准EXE工程。单击工具箱中的文本框控件（TextBox），将鼠标指针移到窗体上，拖动十字线在窗体上画出大小适当的控件。（2）用同样的方法在窗体中添加两个命令按钮控件（...
用VB设计一个类似于Windows 操作系统附件中“记事本”功能的应用...
步骤一：绘制界面。新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现...
怎样用vb设计一个程序,可以计算总钱数的,主要是里面的文本框可以选择性...
别用文本框了，用表格吧，文本框太麻烦了。VB企业版有一个自带的表格控件MSFlexGrid
用VB设计一个日历程序
Private Sub Command1_Click()Dim d As Date Dim y As Integer Dim start As Date Dim length As Integer d = CDate(Text1.Text)y = year(d)start = CDate(y & "-01-01")length = DateDiff("d"，start，d)1 MsgBox ("是"& y & "年的第"& length & "天!")End Sub ...
潭农利福： Private Sub Command1_Click() Dim y As Integer y = Val(Text1.Text) If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Print y, ＂此年为闰年＂ Else Print y, ＂此年不是闰年＂ End If End Sub
绵阳市17888272364： 紧急求助一个VB程序设计~谢谢帮忙 - ？
潭农利福： 设置控件:一个COMMANDBUTTON控件,叫COMMAND1一个LABEL控件,叫LABEL1设置代码:Private Sub Command1_Click()Dim R, XX = 0.01While X < 8848000X = X * 2R = R + 1WendLabel1.Capt...
绵阳市17888272364： 设计一个VB小程序 - ？
潭农利福： Private Sub Command1_Click() Open ＂C:\Documents and Settings\Administrator\桌面\fafa中英文混合.txt＂ For Input As #1 Do Until EOF(1) Line Input #1, fafa Text1 = Text1 & fafa & vbCrLf Loop Close #1 End Sub Private Sub Command2_Click(...
绵阳市17888272364： vb程序设计·一个简单的VB程序· - ？
潭农利福： 有三个按钮(Command1、Command2、Command3)、一个文本框(text1)和一个标题框(Label1) Private Sub Command1_Click() Text1.Visible = False Command1.Visible = False Label1.FontSize = 14 Label1.FontName = ＂黑体＂ Label...
绵阳市17888272364： 求编写一个简单的VB程序 - ？
潭农利福： Option ExplicitDim k As IntegerPrivate Sub Form_Load()Timer1.Interval = 1000Label1.Caption = ＂你想说的话＂Label1.Font = ＂宋体＂ k = 9End SubPrivate Sub Timer1_T...
绵阳市17888272364： 设计一个VB窗体程序 - ？
潭农利福： Dim a As String, R, G, B As Double, c As Integer Private Sub Command1_Click() a = InputBox(＂请输入颜色值,格式为:R,G,B＂, ＂输入颜色＂) c = InStr(1, a, ＂,＂) R = Mid(a, 1, c - 1) a = Mid(a, c + 1, Len(a) - c) c = InStr(1, a, ＂,＂) G = ...
绵阳市17888272364： vb程序设计？
潭农利福： Private Sub Form_Load() Dim a For i = 1 To 3 a = InputBox(＂提示＂, ＂请输入密码!＂) If a = ＂密码＂ Then MsgBox ＂欢迎使用本程序!＂ Exit Sub Else MsgBox ＂密码错误,请重新输入＂ End If Next i End Sub
绵阳市17888272364： 我想设计一个VB程序,明天交作业. - ？
潭农利福： 人家要VB啊老大~小妹妹作业都找人代做啊~不好好学习啊~ 窗体上放一个label,2个textbox,1个command按钮 把label1的caption属性设置为＂请输入性别＂,把textbox的TEXT属性设置为＂＂就是什么都不写. 然后双击那个窗体上的command1...
绵阳市17888272364： 哪位高手能帮我编写一个VB计算器程序?？
潭农利福： 给LZ下面这个计算器程序吧 =检举Public a, b As Double Public CalKey As String Private Sub Form_Load() Text1.Text = 0 End Sub Private Sub Command1_Click(Index As Integer) Text1.Text = Trim(Text1.Text) If Text1.Text = ＂0＂ Then Text1.Text ...
绵阳市17888272364： 求一个VB程序 - ？
潭农利福： On Error Resume Next Dim p() As String, k() As String, i As Integer, j As Int...
