求VB大神看看我的过程哪里错了~求因子数，动态数组存因子并把结果输入到文本框中
2024-05-16
1. 求VB大神看看我的过程哪里错了~求因子数，动态数组存因子并把结果输入到文本框中
Option Explicit
Private Sub factor(i As Integer, a() As Integer)
Dim m As Integer, n As Integer
For m = 1 To i
If i Mod m = 0 Then '如果I为奇数或为偶数时.
n = n + 1 ' 这一句放在下一句后面,因为N 初始为0 . 这里加1后等于1也就是增长了两个数组.
ReDim Preserve a(n) '如果N=1,则下标为1. 0 TO 1
a(n) = m'如果N=1时,则A(0)的值为空.A(1)的值等于M,此时数组中会出现为0的元素.
End If
Next m
End Sub
Private Sub Command1_Click()
Dim x As Integer, n As Integer, a() As Integer
x = Text1
Call factor(x, a()) 'N 初始为0
Text2 = a(n) '此时把A(N) 的值也就是A(0)的值赋予到文本框中..要获取全部数组值赋予到文本框中.应用循环方法.
End Sub
2. vb状态栏动态显示文本框内容,一旦改变就显示改变后的内容,怎么写代码？
设置状态栏相应的panel的值就行了啊。 比如要设置为Text1这个文本框内容，代码如下： Private Sub Text1_Change()StatusBar1.panel(1).text=Text1.textEnd Sub
3. JAVA中如何将显示在控制台的数据输入到文本框中，如图所示
System.out.println这句代码是System类里面的out成员变量(它也是一个类).println()方法
其中的out是PrintStream类型的类
OutputStream os = new FileOutputStream(new java.io.File("c:\\这是测试.txt"));
System.setOut(new PrintStream(os));
这样就能拿到System.out.println打印出来的内容了。
如果要实时获取打印的内容，只要将OutputStream 改变成内存处理，而不是写到文件就成了
OutputStream os = new PrintStream(new File("c:\\临时文件.txt")){
@Override
public void println(String x) {
// TODO Auto-generated method stub
//嘿。x就是System.out.println 打印的内容，我在这里就不写入临时文件了，测试而已
}
};
System.setOut(new PrintStream(os));//修改输出流
4. VB.net如何读取文本文档的每一行 并把每一行的数据放到对应的文本框中？
Dim AllLine As String() = File.ReadAllLines("Mytxt.txt")
For i = 0 To AllLine.length-1
textBox1.Text = textBox1.Text & AllLine(i) & vbCrlf
Next
5. vb 习题 计算20个整数的和并在文本框TEXT1中显示出来 怎么编代码 ？
窗体上画一文本框TEXT1,宽1500，高500，居中显示，黑体三号字,再画一命令按钮C1（设置其 name为“C1”）,标题为“计算”，宽1000，高350,自己完成。代码窗口中添加以下代码。 Private Sub c1_Click() Dim s As Integer, a As Integer Open app.path & "\in31.dat" For Input As #2 Do While Not EOF(2) Input #2, a s = s + a Loop Close #2 Text1.Text = s End Sub
6. 如何用EXCEL表中的数据制作出股市行情走势图
我用的是Excel 2007，不确定以前版本是否有股价图，菜单位置和以前版本完全不同，请自行寻找。 1.复制数据在Excel中粘贴 2.把“日”和“期”之间的空格删除 3.选择“分列”功能，分隔符号选择空格，将数据分为5列。 4.选中数据，插入股价图中第二种“开盘-盘高-盘低-收盘图”。 5.分别调整涨跌柱线和上下影线的颜色。
7. 如何实现textbox数据更新？
你说的这个要借助触发器来实现。而且这位老兄代码写的不安全，建议修改下写发更安全些，我5年前搞这个了，现在不好多年没碰了，送你个数据库工具类，是基于3层架构的，你看看吧
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Data.SqlClient;
using System.Globalization;
using System.IO;
namespace MyNameSpace
{
///
/// SqlDbOperHandler 的摘要说明
/// 在刘博写的SqlDbOperHandler的基础上，做一些适合我自己使用的修改；
/// 建立日期：2006-4-5
/// 作者：栗斌；
/// 说明：基本上封装了与数据库有关的一些操作，但不完善，代以后处理；
/// 在这个类里面没有写一些关于异常处理的处理
/// 版本：0.1
///
public class SqlDbOperHandler
{
private System.Collections.ArrayList ParameterArrayList;
private System.Collections.ArrayList TableName;
private System.Collections.ArrayList DataReaderArrayList;
private System.Data.SqlClient.SqlCommand SqlCmd;
private System.Data.SqlClient.SqlDataAdapter SqlDp;
private System.Data.SqlClient.SqlConnection SqlCon;
private System.Data.SqlClient.SqlDataReader SqlDr;
//记录错误日志位置，用户可以定义自己的日志文件的位置
private const string FILE_NAME = "d:\\ExceptionMessage.txt";
private DataSet ds;
private string MyConnection;
//定义一个布尔类型的变量，来判断用户调用的是那个构造函数；
private Boolean Check = false;
///
/// 构造函数一：
/// 具有参数的构造函数，但是这个构造函数只做一些返回DataAdapter 或者是 DataSet的处理；
/// 并没有处理sqlcommand语句因此，没有必要处理连接；
/// 但是并不等于连接没有打开，只不过没有看到而已；
/// 用于存储过程没有参数的
///
///
public SqlDbOperHandler(string connection)
{
//
// TODO: 在此处添加构造函数逻辑
//
MyConnection = ConfigurationSettings.AppSettings[connection];
SqlCon = new SqlConnection(MyConnection);
SqlCmd = new SqlCommand();
SqlCmd.Connection = SqlCon;
SqlCmd.CommandType = CommandType.StoredProcedure;
SqlDp = new SqlDataAdapter();
ds = new DataSet();
Check = true;
}
///
/// 构造函数二：
/// 具有参数的构造函数，存储过程具有参数的；
///
/// 指定数组大小
/// 指定连接名
public SqlDbOperHandler(int ParameterArrayListSize, string connection)
{
MyConnection = ConfigurationSettings.AppSettings[connection];
SqlCon = new SqlConnection(MyConnection);
SqlCmd = new SqlCommand();
SqlCmd.Connection = SqlCon;
SqlCmd.CommandType = CommandType.StoredProcedure;
SqlDp = new SqlDataAdapter();
ds = new DataSet();
ParameterArrayList = new System.Collections.ArrayList(ParameterArrayListSize);
}
///
/// 构造函数三：
/// 用于datareader的一个构造函数；
///
/// 取得要想输出的表烈数
/// 取得连接名
///
public SqlDbOperHandler(int DataReaderArrayListSize , string connection,int ParameterArrayListSize,int DataReaderParameterSize)
{
MyConnection = ConfigurationSettings.AppSettings[connection];
SqlCon = new SqlConnection(MyConnection);
SqlCmd = new SqlCommand();
SqlCmd.Connection = SqlCon;
SqlCmd.CommandType = CommandType.StoredProcedure;
SqlDp = new SqlDataAdapter();
ds = new DataSet();
ParameterArrayList = new System.Collections.ArrayList(ParameterArrayListSize);
DataReaderArrayList = new System.Collections.ArrayList(DataReaderArrayListSize);
TableName = new System.Collections.ArrayList(DataReaderParameterSize);
}
///
/// 析构函数；释放资源的。
///
~SqlDbOperHandler() { }
///
/// 构造函数一：
/// 构造存储过程参数工厂；
///
/// 存储过程参数的名字；
/// 存储过程参数的值；
/// 存储过程参数的类型
public void BuildParameterArrayList(string ProcedureParameterName, object ProcedureParameterValue, object ProcedureParameterType)
{
System.Data.SqlClient.SqlParameter MyParameter = new SqlParameter(ProcedureParameterName, ProcedureParameterType);
MyParameter.Value = ProcedureParameterValue;
ParameterArrayList.Add(MyParameter);
}
///
/// 构造函数二：
/// 构造想要输出的与DataReader有关的参数；（列名）
///
///
public void BuildParameterArrayList(string OutPutParameter)
{
TableName.Add(OutPutParameter);
}
///
/// 返回值是数据集的构造工厂；
///
/// 存储过程名；
///
public DataSet AboutDataSetFactory(string ProcedureName)
{
if (ProcedureName.Equals(string.Empty))//如果没有存储过程名,则抛出无参异常
throw new System.ArgumentNullException();
//判断使用的哪个构造函数；
if (Check)
{
//使用了没有存储过程参数的构造函数；
SqlCmd.CommandText = ProcedureName;
SqlDp.SelectCommand = SqlCmd;
SqlDp.Fill(ds);
return ds;
}
else
{
//使用了具有存储过程参数的构造函数；
SqlCmd.CommandText = ProcedureName;
SqlDp.SelectCommand = SqlCmd;
//SqlCmd.Parameters.Clear();
for (int i = 0; i < ParameterArrayList.Count; i++)
{
SqlCmd.Parameters.Add( ((System.Data.SqlClient.SqlParameter) ParameterArrayList[i]));
}
SqlDp.Fill(ds);
return ds;
}
}
///
/// 返回值是数据适配器的构造工厂；
///
/// 存储过程名；
///
public SqlDataAdapter AboutSqlDataAdapterFactory(string ProcedureName)
{
if (ProcedureName.Equals(string.Empty))//如果没有存储过程名,则抛出无参异常
throw new System.ArgumentNullException();
//判断使用的哪个构造函数；
if (Check)
{
//使用了没有存储过程参数的构造函数；
SqlCmd.CommandText = ProcedureName;
SqlDp.SelectCommand = SqlCmd;
return SqlDp;
}
else
{
//使用了具有存储过程参数的构造函数；
SqlCmd.CommandText = ProcedureName;
SqlDp.SelectCommand = SqlCmd;
for (int i = 0; i < ParameterArrayList.Count; i++)
{
SqlCmd.Parameters.Add(((System.Data.SqlClient.SqlParameter)ParameterArrayList[i]));
}
return SqlDp;
}
}
///
/// 执行返回值为-1的存储过程（sqlcommand）
///
/// 存储过程名：
public void ExecuteNonQuery(string ProcedureName)
{
if (ProcedureName.Equals(string.Empty))//如果没有存储过程名,则抛出无参异常
throw new System.ArgumentNullException();
//判断使用的哪个构造函数；
if (Check)
{
//使用了没有存储过程参数的构造函数；
SqlCmd.CommandText = ProcedureName;
try
{
SqlCon.Open();
SqlCmd.ExecuteNonQuery();
SqlCon.Close();
}
catch (Exception e1) { SystemLog(e1.Message); }
}
else
{
//使用了具有存储过程参数的构造函数；
SqlCmd.CommandText = ProcedureName;
for (int i = 0; i < ParameterArrayList.Count; i++)
{
SqlCmd.Parameters.Add(((System.Data.SqlClient.SqlParameter)ParameterArrayList[i]));
}
try
{
SqlCon.Open();
SqlCmd.ExecuteNonQuery();
SqlCon.Close();
}
catch (Exception e2) { SystemLog(e2.Message); }
}
}
///
/// 执行具有返回值的语句；提供从数据库中检索到的记录；
///
/// 存储过程名
///
public int ExecuteScalar(string ProcedureName)
{
if (ProcedureName.Equals(string.Empty))//如果没有存储过程名,则抛出无参异常
throw new System.ArgumentNullException();
//从数据库中检索到的记录数；
int AnnalNumber;
//判断使用的哪个构造函数；
if (Check)
{
//使用了没有存储过程参数的构造函数；
SqlCmd.CommandText = ProcedureName;
try
{
SqlCon.Open();
AnnalNumber = (int)SqlCmd.ExecuteScalar();
SqlCon.Close();
return AnnalNumber;
}
catch (Exception e3) { SystemLog(e3.Message); return 1; }
}
else
{
//使用了具有存储过程参数的构造函数；
SqlCmd.CommandText = ProcedureName;
for (int i = 0; i < ParameterArrayList.Count; i++)
{
SqlCmd.Parameters.Add(((System.Data.SqlClient.SqlParameter)ParameterArrayList[i]));
}
try
{
SqlCon.Open();
AnnalNumber = (int)SqlCmd.ExecuteScalar();
SqlCon.Close();
return AnnalNumber;
}
catch (Exception e4) { SystemLog(e4.Message); return 1; }
}
}
///
/// 将存储存储过程参数的数据清空；
///
public void ParameterRemove()
{
ParameterArrayList.Clear();
}
///
/// 释放资源；
///
public void SQLCOMMANDDISPOSE()
{
}
///
/// 返回值是数组类型的数据读取工厂(SqlDataReader)
///
/// 存储过程名：
/// 数组类型的
public System.Collections.ArrayList ExecuteReaderFactory(string ProcedureName)
{
if (ProcedureName.Equals(string.Empty))//如果没有存储过程名,则抛出无参异常
throw new System.ArgumentNullException();
SqlCmd.CommandText = ProcedureName;
for (int i = 0; i < ParameterArrayList.Count; i++)
{
SqlCmd.Parameters.Add(((System.Data.SqlClient.SqlParameter)ParameterArrayList[i]));
}
try
{
SqlCon.Open();
SqlDr = SqlCmd.ExecuteReader();
if (SqlDr.Read())
{
for (int k = 0; k < TableName.Count; k++)
{
DataReaderArrayList.Add(SqlDr[TableName[k].ToString()]);
}
}
else { DataReaderArrayList.Add("nihao"); }
SqlDr.Close();
SqlCon.Close();
}
catch (Exception e5) { SystemLog(e5.Message); }
return DataReaderArrayList;
}
///
/// 记录日志至文本文件
///
/// 记录的内容
private static void SystemLog(string message)
{
if (File.Exists(FILE_NAME))
{
//如果日志文件已经存在就直接写入
StreamWriter sr = File.AppendText(FILE_NAME);
sr.WriteLine("\n");
sr.WriteLine(DateTime.Now.ToString() + message);
sr.Close();
}
else
{
StreamWriter sr = File.CreateText(FILE_NAME);
sr.Close();
}
}
}
}
8. vb中怎么做到单击表格中某行内容时可以弹出解释的文本内容，求vb高手指教一二
Dim A(14) As String '故障原因Dim B(14) As String '解决方案Private Sub Form_Load() MSFlexGrid1.Rows = 14 For i = 1 To 14 A(i) = "故障原因：" & i B(i) = "解决方案：" & i NextEnd SubPrivate Sub MSFlexGrid1_Click() With MSFlexGrid1 Text1.Text = A(.Row) Text2.Text = B(.Row) End WithEnd Sub'给个简单例子，请参考采纳！谢谢！
最新文章
热门文章
推荐阅读