随便看看 - 代码贴

很详细的时钟程序（使用line控件手画表盘表针）

Option Explicit
'Line3 表示时针
'Line1(1) 表示分针（长度960）
'Line2 表示秒针（长度1200）
'Timer 定时器周期1s
'Label2 标签显示当前系统时间
Dim xx1 As Integer '表盘圆心坐标
Dim yy1 As Integer
Dim MyTime, MyHour, MyMinute, MySecond As Integer '定义当前时间，时，分，秒
Dim S_ang, M_ang, H_ang As Single '定义角度变量
Dim S_rad, M_rad, H_rad As Single '定义弧度变量
Dim S_Length, M_Length, H_Length As Integer '定义表针长度变量
......................

阅读全部 | 水到渠成VB 贴于 2014年2月10日 14:56 hide bbsi

asp+access 实现登录和注册（新手学习用）

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>登录、注册</title>
</head>
<body>
<form action="conn.asp" method="post" name="form" target="_parent">
<table width="345" height="124" border="1">
<tr>
<td colspan="2"><div align="center">会员登录</div></td>
......................

阅读全部 | z420038848 贴于 2013年8月22日 11:03 hide bbsi

各位大神，求解第一次调用不对，第二次调用才对

Dim x1, x2
Private Function f(a, b, fun) 'x()初值,目标函数多项式
   x1 = a
   x2 = b
   f = fun
End Function

Private Sub Command1_Click()
   Label1.Caption = f(2, 2, x1 ^ 2 + 2 * x1 * x2 + x2 ^ 2)
End Sub

阅读全部 | 东方淑通贴于 2013年5月21日 20:43 hide bbsi

求救！！！请哪位高手教下我怎么改成C#

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intClassID As Integer = Convert.ToInt32(ddlstclass.SelectedItem.Value)
        Dim intCourseID As Integer = Convert.ToInt32(ddlstcourse.SelectedItem.Value)
        Dim intTeacherID As Integer = Convert.ToInt32(ddlstTea.SelectedItem.Value)
        Dim intTerm As String = TextBox1.Text
        Dim conn As New SqlConnection
        conn.ConnectionString = ConfigurationManager.ConnectionStrings("ASPNETDBConnectionString").ConnectionString
        Dim i As Integer
        For i = 0 To gvstu.Rows.Count - 1
            Dim lbl1 As Label
            lbl1 = gvstu.Rows.Item(i).FindControl("Label1")
            Dim intStudentID As Integer = Convert.ToInt32(lbl1.Text)
......................

阅读全部 | lin9576 贴于 2012年1月19日 00:28 hide bbsi