VB
Digital2Slave
图像处理算法,机器学习,深度学习及其应用。
展开
-
VB学习第六周--显示成绩等级
显示成绩等级...Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer i = Val(InputBox("请输入学原创 2013-04-13 16:40:24 · 3179 阅读 · 0 评论 -
VB学习第十二周输出显示n以内的素数
'(3)输出显示n以内的素数1Public Class Form1 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim i, n, m As Integer原创 2013-05-27 09:17:36 · 1906 阅读 · 0 评论 -
VB学习第十周素数判断,随机数产生
Public Class Form1 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If Asc(e.KeyChar) = 13 Then原创 2013-05-09 21:41:48 · 2212 阅读 · 0 评论 -
VB学习第十一周求取输入两个整数的最大公约数
Public Class Form1 Sub proc(ByVal a%, ByVal b%, ByRef s%) Dim t%, r% If a < b Then t = a : a = b : b = t r = a Mod b Do While (r <> 0) a = b : b = r : r原创 2013-05-18 23:43:52 · 2147 阅读 · 0 评论 -
VB学习第九周--计算π的近似值
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, t, s, m As Double m = Val(TextBox1.Text)原创 2013-05-02 15:09:59 · 7681 阅读 · 0 评论 -
VB学习第七周--图形打印
1.字母金字塔Public Class Form1 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim i% Dim s1 As St原创 2013-04-25 14:08:05 · 4237 阅读 · 0 评论 -
VB学习第八周--特定范围内能被5整除的数
Public Class Form1 Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress Dim n, m, i, s, z, nm As Integer原创 2013-04-25 14:11:37 · 2211 阅读 · 0 评论 -
VB学习第三周--窗体事件
窗体事件:1.装载窗体2.单击窗体3.双击窗体4.改变了窗体大小Public Class Form1 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Me.BackgroundImageLayout = Ima原创 2013-03-27 22:05:38 · 1822 阅读 · 0 评论 -
VB学习第四周续--四位整数逆序
四位整数逆序:Public Class Form1 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim n, a, b, c, d, m As In原创 2013-03-27 22:15:37 · 2365 阅读 · 0 评论 -
VB学习第四周--字符函数验证
字符函数验证:Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = Len(TextBox1.Text) Label2原创 2013-03-27 22:09:07 · 1443 阅读 · 0 评论 -
VB学习第一周--概述
由于之前学习的是C++,从来没有接触过VB,而这学期又要做导师VB实验课的助教,只能硬着头学习一下了~~~这一周主要看的是VB的发展以及基于VS2005的平台介绍,我用的是VS2008实现相关操作的。1.1VB.NET概述20世纪60年出现Basic语言;20世纪80年代,TrueBasic、QuickBasic和TurboBasic等;1991年Microsoft公司推出原创 2013-02-22 20:18:00 · 1148 阅读 · 0 评论 -
VB学习第二周--加法器的实现
加法器的实现:Public Class Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If Not IsNumeric(TextBox1.Text) The原创 2013-03-08 15:09:36 · 1939 阅读 · 0 评论 -
VB学习第五周--数学函数应用
数学函数应用Public Class Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged TextBox3.Text = Math.Sqrt(Val(TextBo原创 2013-04-07 20:20:49 · 1298 阅读 · 0 评论 -
VB学习第十三周几种常见程序源代码
'(1)Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim x() = {4, 5, 3, 6, 1} Dim i As Integer La原创 2013-05-27 09:22:03 · 1745 阅读 · 0 评论