清风不拂面的博客

Imports System.Runtime.InteropServicesPublic Class Form1Private mute As Integer = &H80000Private up As Integer = &HA0000Private down As Integer = &H90000Private WM_APPCOMMAND As Integer = &H319<DllImport("user32.dll")> _Public

Imports System.Runtime.InteropServicesPublic Class Form1 Private mute As Integer = &H80000 Private up As Integer = &HA0000 Private down As Integer = &H90000 Private WM_APPCOMMAND As Integer = &H319 <DllImport("user

vb.net的资料太少，查阅RichTextBox调整字体大小的方法没找到，看了几篇C#的介绍，有的写的好复杂，在一篇短文中找到解决方法： ‘缩小字号 Dim fonOld, fonNew As Font fonOld = rtbMain.Font Try fonNew = New Font(fonOld.FontFamily, fonOld.Size - 1, fonOld.Style) rtbMain.Fo

Public Class frmMoney Const conMax = 9 Public intValue(conMax) As Integer Private Sub frmMoney_Load(sender As Object, e As EventArgs) Handles MyBase.Load lblTell.Text = "贪婪算法追求最快得到结果的算法，它可能不是最优解。" & vbCrLf & "例如找零钱的

Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load lblTell.Text = "输入比赛人数（双数，大于8时必须是16、32或64），进行单循环赛程安排" lblNum.Text = "比赛人数" End Sub Private Sub btnCal_Click(sender As Object, e As

1、代码理解不了可以看看博客下方的其它推荐的文章，同类文章很多，可以看他们的讲解（一般不是vb.net代码），理解方法后再结合vb.net代码学习（不同语言代码还是有很多不同的）。2、结合已编译程序的计算结果来学习，效果会更好些，代码中提供了下载链接（传到优快云上设置免费，管理员也可能改成会要积分的资源）3、这里重点要说的是，我写的代码可能会比其它语言的代码多，这并不是vb.net代码不简洁，而是多出来的代码是检测用户的输入信息的合理性，这是写程序时必须要考虑的；而其它代码的初始条件多是自己设定好的，

Public Class Form1 Dim intNum(), intCode() As Integer '全局变量数组 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '初始化 '数值过大耗时较多，也可能出现溢出无法得到全部结果 txtM.Text = "15" txtN.Text = "5" End Sub

刚才发了几个代码，上周发了几个免费资源，通过后都要积分了，唉，还是直接发代码吧。学习代码时，可以顺便下载编译好的程序，代码中有链接和提取码，程序与代码接合会更直观。上班后就没很多时间学编程、改程序了。不过没特殊情况，还会继续学习编程、写程序的。生活需要兴趣、动力、新意、成就感，你说是吗？...

vb.net自带进制算法，但我们这里要学习的是递归算法啊！代码中还有循环算法及vb.net自带进制算法Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load txtN.Text = "2" End Sub Private Sub btnConvto_Click(sender As Object, e As EventArgs) H

Public Class frmMain Private Sub 更新下载ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 更新下载ToolStripMenuItem.Click Process.Start("https://pan.baidu.com/s/1uHZturISzQifxeHL-FX-eQ") My.Computer.Clipboard.Clear() My

枚举（穷举）算法其实就是我们用的最多的循环算法，将所有可能性都考虑在内进行循环计算。术语听不懂很可怕，嘿嘿嘿Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load lblNum1.Text = "算法描述题" lblCode.Text = "×" lblNum2.Text = " 算"

Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '5个5进行+-*/计算后仍等于5 lblTell.Text = "请在下面的等式中填写+-*/计算符号，使等式成立" lblNum1.Text = "5" lblNum2.Text = "5" lblNum3.Text = "5"

本人这几天在学习算法，主要是因为在五子棋调试中太烦人了，换换思路，同时也受五子棋终结者的刺激，开始学些算法。发代码主要是vb.net源代码太少了。我现在学的算法视频教程是C语言的，简单的能看懂，写起来也容易。讲算法的很多，只是vb.net代码好象没有，就顺手发几个。看不明白的可以看文章下面的其它文章，我就不重复了。看受关注程度吧，如果看得少就不再发了，省得浪费时间和精力。另外，顺便发的程序下载是为理解代码更直观，提供的代码对应的软件下载，是百度云盘下载，不需要积分下载，已让管理员重点审核了，怕怕！

Private Sub btnHare_Click(sender As Object, e As EventArgs) Handles btnHare.Click '此算法实际是斐波拉契数列算法 Dim intMonth, intNum(), intI As Integer Try If IsNumeric(txtHare.Text) Then intMonth = CInt(txtHare.T...

Public Class frmMoney Private Sub btnMoney_Click(sender As Object, e As EventArgs) Handles btnMoney.Click '若在M月连续连本带息取N元，需要现在一次性存款多少？ Dim sngDraw, sngInterest, sngDeposit() As Single Dim intMonth, intI As Integer Try

Public Class frmNum Dim intNum, intTimes， intMaxNum, intMinNum As Integer Private Sub chkTell_CheckedChanged(sender As Object, e As EventArgs) Handles chkTell.CheckedChanged If chkTell.Checked = True Then lblAbout.Text = "范围："