zhulzy@stu-优快云博客

原创 vb.net 三次样条曲线代码

Imports System.MathModule Program Sub Main(args As String()) Const n As Integer = 5 Const m As Integer = 100 Dim x(n), y(n), Sx(m), Sy(m) As Single Dim DX As Single For i = 0 To n x(i) = i - 2 .

2022-03-04 17:15:52 728

翻译 oneapi intel fortran 如何F1 查看帮助文档

1.把网页版的帮助文档下载下来解压2.把解压后文件放进2红框所示路径下，重启vs 选中不会的代码，F1即可查询代码Download Documentation: Intel® Compiler (Current and Previous)

2021-11-25 15:47:14 983

原创 python 从1加到20 并显示

count=1sum=1a=""b="1"while count<20: count+=1 a="+"+str(count) sum=sum+count b=b+a print(b+"="+str(sum))结果

2021-11-06 22:25:15 1444

#form模块名 import 方法名#randint(a,b) :产生(a,b)范围内随机整数from random import randintnum = randint(1,100)print ('Guess what I think?')answer = 1while num!=answer: answer = int(input()) if answer<num: print ('too small!') if answer>num: .

2021-11-06 21:47:48 3325

原创 cmd 命令大全

有关某个命令的详细信息，请键入 HELP 命令名ASSOC 显示或修改文件扩展名关联。ATTRIB 显示或更改文件属性。BREAK 设置或清除扩展式 CTRL+C 检查。BCDEDIT 设置启动数据库中的属性以控制启动加载。CACLS 显示或修改文件的访问控制列表(ACL)。CALL 从另一个批处理程序调用这一个。CD 显示当前目录的名称或将其更改。CHCP ..

2021-10-31 16:09:25 107

原创 Fortran 读取文件指定行

program main implicit none integer,parameter::m=4,n=10 integer::a(m),b(m) integer::i,j,ii data a /1,3,6,8/ open(12,file="data.txt") ii=1 do i=1,n do j=ii,m if (i==a(j))then read(12,*)...

2021-10-31 10:37:01 3228

原创 Fortran 格式化输出数组到excel

program main implicit none integer::a(3,3),i,j do i=1,3 a(i,:)=2*i end do open(12,file="g:\datte.csv") do i=1,3 write(12,"(3(i3,','))") a(i,:) end do close(12) stop end

2021-10-28 21:32:33 1385

原创 VB.NET 格式化输出数组到excel

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim a(,) As Integer = {{1, 2, 3, 4, 5, 6}, {2, 3, 4, 5, 6, 7}} Dim S As String Dim I, J As Integer FileOpen(2, "ARRAY.csv", OpenMode.Output).

2021-10-28 20:52:25 445

原创 vb.net 数组均为传址，变量可以传值

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim a(1), b As Integer b = 5 For i = 0 To 1 a(i) = i Next Console.WriteLine("改变前的值：") For i = 0 To 1 .

2021-10-28 17:11:39 451

原创 vb.net 使用dsapi, 读写json文件

dsapi是一种非常强大的扩展方法，学习与使用见群419130936Public Class Form3 Private 信息 As New 保存信息 Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim 文件路径 As String = $"{当前程序所在文件夹()}\保存.dat" If 存在文件(文件路径) = 否 Then Exit Sub

2021-10-20 15:16:45 419

原创 vb.net使用Dsapi, 读写ini文件

dsapi是一种非常强大的扩展方法，可于qq群419130936中找到并学习。Public Class Form2 Private ini As New DSAPI.文件.INI读写器 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load ini.载入INI文件("G:\用户信息.ini") End Sub Private Sub Button1_Clic

2021-10-20 14:46:51 241

原创 vb.net未将对象引用设置到对象实例

1 dim s as new student2 dim s as student'声明s为student类的对象变量3 s=new student'创建一个实例并赋给s从本质上说，对象变量的赋值是将对象实例的地址赋予对象变量，对象变量并没有存储对象实例。因此第二行的声明只是给了s一个student类的引用地址，第三行则是将一个对象实例赋值给了s。分析一下图中第十三行出现错误“未将对象引用设置到对象实例出现的原因”当click事件发生时，mybutton.SelectedNode作为..

2021-10-17 20:07:35 3414

原创 vb.net 动态添加控件并绑定相应的事件

vb.net由窗体直接添加的控件可以直接选择其相应的事件工程，但是由代码生成的控件并不会直接绑定相应的事件。Public Class form3 WithEvents mybutton As TreeView Private Sub form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load mybutton = New TreeView ' mybutton.Text = "hel

2021-10-15 16:09:58 3149

m0_52395907的博客